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ABSTRACT 


This  guide  presents  a  detailed  description  of  the  computer  programs 
constituting  the  Naval  Aircraft  Rework  Facility  (NARF)  Workload  Plan¬ 
ning  and  Budgeting  Model.  As  the  guide  is  intended  for  use  by  program¬ 
mers  in  making  detailed  changes  to  program  coding,  coding  receives 
especial  attention  in  the  form  of  lines-by-lines  description  of  main  program 
listings.  A  general  description  of  each  program,  the  program  listings,  and 
flow  charts  are  included. 

The  description  of  the  model  is  contained  in  the  Center  for  Naval 
Analyses’  INS  Study  38,  “Naval  Aircraft  Rework  Facility  Study.”  A 
discussion  of  the  model’s  uses  is  contained  in  CNA  Research  Contribution 
212,  the  “User’s  Guide  to  the  NARF  Workload  Planning  and  Budgeting 
Model.” 
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PREFACE 


Navy  managers  need  the  capability  to  analyze  the  effects  of  changes 
in  the  forces  on  the  support  system.  Thus  research  efforts  in  the  develop¬ 
ment  of  methodologies  for  measuring  the  support  required  for  the  opera¬ 
ting  forces  was  requested.  One  of  these  efforts  was  the  development  of  a 
model  suitable  for  the  long  range  planning  and  budgeting  of  the  Navy’s 
Aeronautical  Depot  Maintenance  Program. 

This  effort  has  required  a  heavy  emphasis  on  methodological  issues  and 
the  development  of  the  computer  system,  software,  and  programs  to  implement 
the  model.  The  results  of  this  effort  are  summarized  in  three  documents: 

1 .  Study  report  (reference  (2)) 

2.  User’s  guide  to  the  model  (reference  (3)) 

3.  Programmer’s  guide 

The  initial  findings  of  the  study  are  described  in  the  study  report.  This 
report  is  intended  for  those  concerned  with  the  overall  problems  of  planning 
depot  maintenance.  The  scope  of  the  Depot  Maintenance  Program,  the  current 
planning  system  used  for  programming  and  budgeting,  and  several  major  policy 
issues  are  discussed  initially.  This  is  followed  by  a  general  and  non-technical 
explanation  of  the  model  along  with  a  case  analysis  for  FY  1974  illustrating 
the  model’s  uses.  This  initial  version  of  the  model  has  since  been  revised  and 
expanded  in  cooperation  with,  and  at  the  request  of,  the  users.  The  User’s 
Guide  documents  the  procedures  necessary  to  execute  the  latest  version  of  the 
model.  Finally,  the  guide  which  follows  documents  the  detailed  program  listings 
in  order  to  facilitate  future  revisions  to  the  model. 

The  model  developed  (figure  1)  consists  of  the  following  computer 
programs : 

Input  programs 

Matrix  generator 

Mathematical  Programming  System  (MPSX360) 

Report  generator 

The  programmer’s  guide  will  discuss  the  input  programs,  the  matrix  generator 
and  the  report  generator.  The  Mathematical  Programming  System  (MPSX360)  is 
an  IBM  developed  program  for  solving  linear  programming  problems  on  an  IBM 
360  computer.  MPSX360  utilizes  the  Matrix  Generator  output  tape  as  input  to 
solve  the  problem  specified.  The  output  of  MPSX360,  L.P.  output,  consists  of 
the  problem  solution  in  matrix  form  and  is  used  as  input  to  the  report 
generator.  (For  details  on  the  MPSX360  system,  see  references  (4),  (5),  and  (6), 
obtainable  from  IBM.) 
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FIG.  1:  FLOW  CHART  OF  THE  PLANNING  MODEL 


CHAPTER  I 


IIMPUT1 


RESOLUTION  OF  INCOMPATIBILITIES 

INPUT  1  is  designed  to  accept  three  input  tapes  (the  Master  File,  the  Capacity  and  Distribution 
File,  and  the  Cost  Rate  File)  created  on  an  RCA  3301  computer  system  and  to  produce  three 
output  tapes  that  are  in  a  format  acceptable  to  the  IBM  360  computer  system.  Certain  discrep¬ 
ancies  exist  between  the  two  computer  systems  which  must  be  eliminated  to  facilitate  the 
generation  of  an  input  tape.  The  techniques  that  INPUT  1  uses  to  eliminate  these  discrepancies  are 
explained  in  the  following  paragraphs. 

The  RCA  3301  is  an  octal  machine  with  byte  configuration  of  6  bits/byte.  It  produces 
seven-track,  odd-parity  tapes.  The  IBM  360  system  is  a  hexadecimal  machine  with  byte  configura¬ 
tion  of  8  bits/byte.  The  standard  IBM  tapes  are  nine-track  odd  parity.  Seven-track  tapes  can  be 
handled  by  the  IBM  system  by  using  proper  JCL  parameters  (see  page  25  of  the  User’s  Guide). 

Specifically,  to  handle  seven-track,  odd-parity  tapes  the  “tape  recording  technique”  (TRTCH) 
subparameter  of  the  “data  control  block”  (DCB)  parameter  of  the  JCL- for  INPUT  1  is  set  equal  to 
translate  (“T”).  Under  this  translate  option  not  all  RCA  characters  are  translated  to  the  same 
character  in  IBM  code.  That  is,  30  of  the  64  RCA  character  codes  are  translated  to  IBM  characters 
that  are  different  from  the  original  RCA  characters.  For  example,  an  RCA  “A”  is  translated  to  a 
“/”  in  IBM  code;  similarly,  an  RCA  “B”  is  translated  to  an  IBM  “S”.  A  complete  list  of  these  30 
RCA  characters  and  their  IBM  translations  is  given  in  table  1 . 

INPUT1  handles  this  problem  by  using  the  COBOL  “TRANSFORM”  verb  to  change  these 
IBM  characters  to  the  proper  IBM  character  code  to  represent  the  original  RCA  characters.  For 
example,  the  COBOL  statement 

TRANSFORM  WORK-AREA  FROM 
‘/S’  to  ‘AB’ 

will  replace  all  characters  in  WORK-AREA  equal  to  ‘/’  or  ‘S’  with  ‘A’  or  ‘B’  respectively.  Therefore, 
the  30  characters  in  table  1  are  translated  (by  TRTCH  =  T  in  the  JCL)  to  certain  IBM  characters 
and  these  characters  are  then  transformed  (by  COBOL  TRANSFORM  verb)  to  the  IBM  format 
representing  the  original  RCA  characters. 

INPUT1,  in  addition,  compensates  for  incompatibilities  in  the  tape  formats.  These  incompati¬ 
bilities  are: 

Labels  and  end-of-file  mark  (EOF):  Each  RCA  tape  begins  with  a  31 -character  label 
followed  by  a  3-character  EOF  mark.  Neither  the  label  nor  the  EOF  mark  is  recognized 
as  such  by  the  IBM  360  system.  Instead,  the  IBM  system  treats  the  label  and  the  EOF 
mark  as  31 -character  and  3-character  records,  respectively. 
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TABLE  1 


RCA  AND  IBM  CHARACTER  DIFFERENCES 
USING  TRTCH  =  T 


From 


To 


IBM 


Octal 

RCA 

Machine  code 

character 

61 

/ 

B 

A 

1 

A 

62 

S 

B 

A 

2 

B 

63 

T 

B 

A 

2  1 

C 

64 

U 

B 

A 

4 

D 

65 

V 

B 

A 

4 

1 

E 

66 

w 

B 

A 

4 

2 

F 

67 

X 

B 

A 

4 

2  1 

G 

70 

Y 

B 

A 

8 

H 

71 

z 

B 

A 

8 

1 

1 

75 

A 

8 

2  1 

/ 

21 

A 

A 

1 

/ 

22 

B 

A 

2 

s 

23 

C 

A 

2  1 

T 

24 

D 

A 

4 

u  - 

25 

E 

A 

4 

1 

V 

26 

F 

A 

4 

2 

w 

27 

G 

A 

4 

2  1 

X 

30 

H 

A 

8 

Y 

31 

1 

A 

8 

1 

z 

73 

9 

B 

A 

8 

2  1 

00 

0 

space 

12 

space 

8 

2 

0 

55 

> 

B 

8 

4 

1 

) 

56 

< 

B 

8 

4 

2 

# 

60 

iiii 

t 

B 

A 

& 

76 

= 

B 

A 

8 

4 

2 

+ 

16 

) 

8 

4 

2 

= 

20 

& 

A 

CM  CO 

0 

32 

+ 

A 

8 

2 

2 

8 

52 

[  T 

B 

8 

2 

11 

0 

56 

EF 

B 

8 

4 

2 

i 

72 

EB 

B 

A 

8 

2 

12 

n 
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Beginning  and  ending  block  marks:  The  first  character  of  each  physical  record 
(block)  of  data  written  on  a  RCA  3301  tape  drive  is  called  an  “item  separator.”  The  last 
character  of  each  block  is  an  end-of-block  mark.  Therefore,  each  block  contains  two 
extra  characters.  For  example,  if  1,000  characters  were  to  be  written  on  tape  as  one 
block  of  data,  the  actual  physical  record  would  consist  of  1 ,002  characters,  including  the 
item  separator  and  the  end-of-block  mark  as  the  first  and  last  characters  in  the  block, 
respectively. 

j 

Short  blocks:  On  the  RCA  3301  system,  it  is  possible  that  the  final  block  of  a  tape 
file  is  shorter  than  the  preceding  blocks.  This  situation  occurs  when  the  number  of 
remaining  logical  records  to  be  written  is  less  than  the  blocking  factor  that  had  been 
used  throughout  the  file.  For  example,  suppose  there  are  105  logical  records,  each  100 
characters  long,  to  be  written  on  a  tape  file  and  the  blocking  factor  is  10  records  per 
block.  The  entire  file  would  consist  of  10  full  blocks  and  1  short  block.  The  first  10 
blocks  would  consist  of  10  records  or  1,002  characters  each.  The  final  block  would 
consist  of  5  records  or  502  characters.  The  final  block  in  a  tape  file  is  followed  by  a 
21 -character  end-of-file  label. 

The  above  problems  are  resolved  within  INPUT1.  In  the  file  description  paragraph  (FD)  for 
each  tape  file  the  recording  mode  is  set  equal  to  unspecified  (‘U’).  This  allows  for  records  of 
varying  lengths  to  be  fetched  from  the  tape  file  for  each  COBOL  read  operation.  Thus,  the 
31 -character  label  and  3-character  EOF  mark  are  treated  as  blocks  of  data  by  INPUT  1. 

The  label  and  EOF  records  are  found  by  checking  for  label  and  EOF  identifiers  in  the 
procedure  division  of  the  program  for  each  tape  file.  Once  they  are  found,  INPUT  1  assumes  that 
actual  data  follows.  The  first  and  last  characters  of  each  physical  record  are  ignored  by  INPUT  1. 
Finally,  since  the  IBM  360  system  does  not  recognize  the  RCA  3301  end-of-file,  INPUT1  checks 
for  the  end-of-file  by  first  checking  for  a  short  block.  Whenever  a  short  block  is  found  it  is 
assumed  that  it  is  the  last  block  in  the  file.  However,  it  is  possible  for  the  last  block  to  be  full.  In 
this  case,  the  end-of-file  is  recognized  when  the  end-of-file  label  is  identified. 

PROGRAM  LOGIC 

» 

The  general  logic  used  to  handle  each  tape  file  is  as  follows: 

1.  Process  the  beginning  label  , and  EOF  mark. 

2.  For  each  block  of  data,  transform  the  data  to  the  proper  IBM  character 
code  representation  of  the  original  RCA  characters.  This  is  accomplished  one 
record  at  a  time  by  using  the  COBOL  ‘TRANSFORM’  verb. 

3.  Write  the  transformed  record  onto  a  disk  file.  Check  for  a  short  length 
block  by  comparing  the  number  of  records  in  the  block  to  the  blocking 
factor  of  the  file.  If  a  short  block  is  enountered  it  is  assumed  to  be  the  last 
block  in  the  file. 

4.  Return  to  step  2  until  either  a  short  block  is  encountered  or  the  end-of-file 
label  is  processed.  In  both  cases,  the  files  are  closed  and  step  5  is  performed. 
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5.  Sort  the  output  disk  file  and  write  the  results  onto  a  tape  file.  This  tape  file 
will  be  a  standard  IBM  formated,  nine-track  tape  and  will  be  used  as  input 
to  INPUT2.  The  sort  is  accomplished  by  using  the  IBM  sort  utility  and  it  is 
set  up  in  the  Job  Control  Language. 

An  exception  to  the  above  steps  occurs  during  the  processing  of  the  Capacity  and  Distribution 
file.  Here,  during  step  3,  each  record  is  checked  to  determine  whether  it  is  a  capacity  record  or  a 
distribution  record.  The  distribution  records  are  written  on  a  disk  file  and  later  sorted  as  are  the 
records  in  the  Master  and  Cost  Rate  files.  However,  the  capacity  records  are  stored  in  a  table  until 
the  end-of-file  is  reached.  They  are  then  punched  onto  cards  to  be  used  as  card  input  to  the  Matrix 
Generator  program. 
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CHAPTER  II 


INPUT2 


INTRODUCTION 

Computer  program  INPUT2  is  a  single  COBOL  program  without  subroutines.  The  function  of 
INPUT2  is  to  create  the  Data  Base  tape  file.  This  file  is  used  as  input  to  the  Matrix  Generator 
program.  The'  three  output  tapes  from  INPUT  1  (Master,  Distribution,  and  Rate  files)  are  used  as 
input  to  INPUT2.  Tables  B-l,  B-2,  and  B-3  in  appendix  B  present  the  format  of  the  three.  The  tape 
format  for  the  generated  Data  Base  file  is  given  in  table  B-4.  (Table  B-5  is  a  matrix  which  assigns 
the  appropriate  Fund  Code  for  customers  1  through  9  and  A  through  I  depending  on  the 
subprogram  and  program.) 

PROGRAM  DESCRIPTION 

After  the  execution  of  INPUT  1,  the  three  tape  files  (Master,  Distribution,  and  Rate)  are  sorted 
in  ascending  sequence  by  identical  fields.  For  each  record  on  the  Master  file  there  exists  corre¬ 
sponding  distribution  and  rate  records  on  the  Distribution  and  Rate  files,  respectively.  There  are 
several  exceptions  to  the  above  that  will  be  mentioned  later.  Each  master  and  rate  record  contains 
information  for  a  five-year  period  and  each  distribution  record  applies  to  all  of  the  five  years. 
INPUT2  will  then  construct  one  data  base  record  for  each  of  the  five  years  represented  on  a  master 
record  from  the  Master  file. 

Each  of  the  five  data  base  records  representing  a  master  record  is  a  composite  of  information 
contained  on  the  master  record  and  the  appropriate  distribution  and  rate  records.  Not  all  variables 
contained  in  a  data  base  record  come  from  these  three  records.  Some  variables  such  as  “total-cost,” 
“requirements,”  and  “fund-code”  are  computed  by  INPUT2  using  other  information  contained  on 
the  records.  Each  data  base  record  contains  all  of  the  information  that  is  desired  by  the  Matrix 
Generator  program. 

To  construct  the  data  base  records  it  is  necessary  to  match  each  master  record  to  specific 
distribution  and  rate  records.  This  matching  is  accomplished  by  constructing  a  distribution  identi¬ 
fier  and  a  rate  identifier  from  variables  on  the  master  record  and  searching  the  appropriate  tape 
files  until  it  is  determined  whether  or  not  a  match  exists. 

Records  on  the  Distribution  file  are  identified  by  a  seven-character  code  composed  on  the 
variables  Type  Equipment  Code  (TEC),  Program,  Subprogram,  and  Designated  Repair  Point  (DRP). 
Records  on  the  Rate  file  are  identified  by  an  eight-character  code  composed  of  the  variables  TEC, 
Program,  Subprogram,  Fund-Code,  and  DRP.  There  are  several  exceptions  to  the  above.  Records 
with  programs  on  the  Distribution  file  with  values  of  ‘F,’  ‘H,’  and  ‘L’  and  records  with  programs  on 
the  Rate  file  with  values  of  ‘F,’  ‘H,’  ‘L,’  ‘P,’  ‘R,’  ‘V,’  and  ‘Y’  are  not  associated  with  a  TEC  and  the 
TEC  variable  on  these  files  is  equal  to  “spaces.”  These  records  are  grouped  together  at  the 
beginning  of  the  Distribution  and  Rate  files  but  their  information  applies  to  any  master  record  with 
its  program  equal  to  the  above  mentioned  values.  These  exception  records  from  the  Distribution 
and  Rate  files  are  read  into  core  by  INPUT2  in  the  first  phase  of  the  program.  Both  of  these  tape 
files  are  now  positioned  so  that  the  Master  file  can  be  easily  matched  against  it. 
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PROGRAM  LOGIC 


The  logic  of  the  program  is  as  follows: 

1 .  Set  initial  values  for  arrays,  counters,  and  subscripts. 

2.  Read  current  G&A  rate  cards. 

3.  Read  exception  records  from  the  Distribution  and  Rate  files  into  two 
tables  in  core. 

4.  Read  one  record  off  the  Master  file.  Begin  constructing  the  five  data  base 
records  corresponding  to  this  master  record  by  utilizing  certain  master 
record  variables.  Set  up  distribution  and  rate  record  identifiers. 

5.  Compute  the  requirement  and  fund-code  variable.  The  fund-code  is  deter¬ 
mined  by  certain  combinations  of  the  customer,  program  and  subprogram 
variables  from  the  Master  file.  These  combinations  are  given  in  table  B-5. 
For  example,  if  the  customer,  subprogram,  and  program  variables  from  the 
master  record  have  values  ‘A,’  ‘1,’  and  ‘A’,  respectively,  the  value  for  the 
data  base  fund-code  is  found  to  be  ‘A.’ 

6.  Get  appropriate  information  from  the  Distribution  file  for  the  five  data 
base  records.  The  master  record  variable  program  is  checked  for  the  value 
‘F,’  ‘H,’  or  ‘L.’  If  it  is  one  of  these  values  the  distribution  table  in  core  is 
searched  for  the  appropriate  record.  If  it  is  not  one  of  these  values,  the 
Distribution  tape  file  is  checked  by  first  reading  into  another  table  all 
distribution  records  with  TEC,  program,  and  subprogram  equal  to  the 
corresponding  variables  on  the  master  record.  The  distribution  record 
identifier,  composed  of  the  variables  TEC,  program,  subprogram,  and  DRP, 
is  then  checked  against  this  table  to  find  the  correct  distribution  record  to 
be  used  with  the  master  record  in  making  the  five  data  base  records. 
Generally,  there  always  exists  a  distribution  record  for  every  master  record 
representing  a  NARF  and  there  never  exists  a  distribution  record  for  a 
master  record  representing  other  than  NARF’s.  All  master  records  that  do 
not  have  distribution  records  have  their  distribution  identifiers  displayed  on 
the  printer. 

7.  Get  appropriate  information  from  the  Rate  file  for  the  five  data  base 
records.  A  technique  similar  to  that  described  in  6  above  is  used  to  find 
the  rate  record  for  a  corresponding  master  record.  The  rate  table  in  core  is 
searched  for  the  rate  record  if  the  master  record  program  variable  is  equal 
to  an  ‘F,’  ‘H,’  ‘L,’  ‘P,’  ‘R,’  ‘V,’  or  ‘Y.’  For  programs  other  than  the  above 
values  the  Rate  tape  file  is  searched  in  a  similar  manner  as  the  Distribution 
file.  Generally,  there  exists  a  rate  record  for  each  master  record.  If  a  match 
is  not  made,  the  rate  identifier  is  displayed  on  the  printer. 

8.  Compute  the  total-cost  variable.  The  total-cost  variable  is  computed  for 
each  of  the  five  data  base  records  using  variables  from  the  appropriate  rate 


-6- 


record.  If  no  rate  record  is  found  for  the  master  record,  the  total-cost 
variable  is  set  equal  to  zero  for  all  five  data  base  records. 

9.  Replace  the  TEC  code  with  a  data  base/CNA  code.  The  four-character  TEC 
code  is  replaced  by  a  unique  two-character  code  called  the  data  base/CNA 
code.  This  results  in  the  eight-character  rework  activity  code  composed  of 
TEC,  program,  subprogram,  customer,  and  DRP  to  be  reduced  to  a  unique 
six-character  code  acceptable  in  length  to  the  MPSX360  program  (see  page 
■52  of  the  User’s  Guide). 

10.  Write  the  five  data  base  records  on  the  Data  Base  tape  file.  The  records  are 
written  in  unblocked  format  and  are  each  96  characters  in  length. 

11.  Return  to  step  4.  Master  file  records  are  processed  one  at  a  time  until  the 
end-of-file  is  encountered. 
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CHAPTER  III 


MATRIX  GENERATOR 


INTRODUCTION 

The  Matrix  Generator  program  has  the  specific  function  of  creating  the  matrix  file  to  be  used 
by  the  IBM  Mathematical  Programming  System.  This  file  is  partially  under  the  control  of  the  user 
in  that  many  of  the  elements  are  directly  specified  by  the  user.  These  inputs  are  discussed  in  the 
code  descriptions  which  follows.  It  is  assumed  that  the  reader  is  familiar  with  the  inputs.  The  basic 
structure  of  the  file  is  fixed  and  is  reflected  in  the  organization  of  the  program. 

MATRIX  FILE  FORMAT 

The  matrix  is  a  card  or  card  image  file  with  a  fixed  format.  The  six  sections  are  identified  on 
single  cards  and  in  the  order  specified  in  table  2.  In  the  table,  the  columnar  format  of  all  card 
records  within  a  section  follows  the  identifier  (the  numbers  in  parentheses  are  card  columns). 

TABLE  2 

MATRIX  FORMAT 


1.  NAME  (1-4)  User  name  (15-n)  15  <  n  <  22 

2.  ROWS  (1-4) 

(  (2)  row  tape  N,  E#  L  or  G 
|  (5-m)  row  name  5  <  m  <  12 

3.  COLUMNS  (1-7) 

I(5-m)  column  name  5  <  m  <  12 
(15-n)  row  name  15<n<22 
(25-36)  value  -  right  justified 

4.  RHS  (1-3) 

((5-m)  right-hand-side  name  5  <  m  <  12 
(15-n)  row  name  15  <  n  <  22 
(25-36)  value  —  right  justified 

5.  BOUNDS  (1-6) 

(2-3)  LO  or  UP  Lower  or  upper  bound 
(5-m)  bound  name  5  <  m  <  12 
(15-n)  column  name  15  <  n  <  22 
,(25-36)  value  —  right  justified 

6.  ENDATA  (1-6) 

Graphically,  the  matrix  appears  as  shown  in  figure  2a.  Columns  and  rows  are  identified  at  the 
top  and  left  respectively  and  each  contains  up  to  eight  consecutive  non-blank  characters.  All  values 
entered  into  the  matrix  are  identified  by  a  column  and  a  row  name.  Positions  which  appear  blank 
are  the  unreferenced  elements  and  are  assumed  to  be  zero.  All  these  values  represent  the  left-hand  side 
of  the  system  of  simultaneous  equations  for  which  the  object  row  (N)  cost  is  to  be  minimized.  All 
non-zero  right-hand  side  (column  RIGHT)  values  complete  the  equations  (E)  and  inequalities  (L 
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FIG.  2a:  GRAPHIC  MATRIX 


and  G)  as  identified  by  the  row  type.  Corresponding,  figure  2b  is  used  later  for  reference  purposes 
in  discussing  the  codes. 

Figure  2c  is  an  expansion  of  Blocks  U  thru  Z  of  figure  2b  at  the  element  level  for  a  particular 
NARF.  Elements  are  written  into  the  matrix  by  column  starting  with  column  H  in  year  1  and 
finishing  with  column  K  in  year  n,  where  n  is  the  range  of  years  requested  for  minimization.  Only 
those  elements  above  the  horizontal  line,  which  represent  the  range  of  years  requested,  are  entered. 

DATA  BASE  FILE 

Physical  Record 

The  physical  record  making  up  the  data  base  file  is  96  bytes  in  length  using  a  fixed  EBCDIC 

code. 


TABLE  3 


PHYSICAL  RECORD  FORMAT 


Identification 


Columns 


Description 


1-2  CN A/Data  Base  code  corresponding  to  the  TEC 

3  Fund  source  (table  look-up) 

4  Year  (1  thru  5) 

5  Program 

6  Subprogram 

7  Customer 

8  NARF  (or  facility) 


Data  Format 


1-9  3.0 

10  4.0 

11  4.0 

12  3.0 

13  5.0 

14  3.0 

15  6.2 

16  4.2 

17  5.2 

18  4.2 

19  5.4 

20  6.0 

21  9.2 


9-35  Shop  percentage 

36-39  TQS— total  quantity  serviced 

40-43  TME— total  mission  essential 

44-46  M/E— mission  essential 

47-51  NORM— average  hours  required 

52-54  M/N— mission  non-essential 

55-60  REQ-requirement  =  f  (TQS,  TME,  M/E,  M/N) 

61-64  DLR— direct  labor  rate 

65-69  DMR-direct  material  rate 

70-73  POR— production  overhead  rate 

74-78  GAR— general  and  administrative  rate 

79-84  UMC— unit  material  cost 

85-93  COST— total  cost  =  f  (DLR,  DMR,  POR,  GAR,  UMC) 

94-96  blank 
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FIG.  2b:  REFERENCE  BLOCKS  ON  GRAPHIC  MATRIX 
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FIG.  2c:  MATRIX  MANPOWER  ENTRIES  IN  REFERENCE  BLOCKS  U  THROUGH  Z 
FOR  ONE  NARF  AND  OVER  ALL  YEARS  REQUESTED 


Logical  Records 


A  logical  record  is  composed  of  five  consecutive  physical  records  for  the  five  years  of  data  on 
the  file.  All  bytes  in  the  identification  are  identical  except  for  the  year  which  varies  from  one  to 
five.  The  yearly  identification  is  always  given  even  though  a  particular  year  may  not  contain  any 
data;  that  is,  the  data’s  worth  is  determined  by  data  itself. 

DEFINITIONS  OF  ARRAYS  AND  VARIABLES 

Common 

DICT  used  in  the  main  routine  and  in  subroutine  SEARCH  for  conversion  between  the  TEC 
and  the  CNA-generated  code  representing  the  TEC. 

Arrays,  Integer 

IBNDA  (2,100)  Column  name  for  exceptions  to  the  rule  for  bounds  percent  variation. 

IBNDC  (100)  Bound  exception  code  for  designating  which  set  of  bounds  and  whether  the  bound  is 
upper  and/or  lower. 

IBNDX  (2,5)  Name  for  standard  bound  percent  variation.  Up  to  five  sets  of  bounds  may  be  included. 

.  IBOUND  (2,2000)  Name  of  the  columns  upon  which  the  bounds  are  set. 

ICD  (64)  Temporary  area  for  data  base  update  information  (if  any)  as  stated  on  IDN  cards. 

ICHK  (21)  Initially  reset  to  zero.  Appropriate  element  set  to  1  when  an  IDN  card  has  non-blank  data 
in  corresponding  locations  from  ICD  array. 

/  ICLRW  (2)  Temporary  storage  for  columns  six  thru  13  of  user  input  control  cards.  Data  is  generally  a 
column  name,  row  name  or  an  identification  for  a  group  of  elements. 

IDBREN  (21)  The  name  associated  with  the  21  elements  from  a  data  base  record. 

IDN  (2,200)  The  names  of  all  activities  to  be  included  in  the  optimization. 

IDNA  (2,5,12)  A  temporary  location  that  is  filled  with  consecutive  activity  names  from  array  IDN, 
which  have  the  same  ID.  IDNA  (name,  year,  facility). 

IDSAVE  (2,1000)  Save  area  for  the  name  of  each  row  under  the  heading  IDs. 

IFUNDS  (8)  Hollerith  representation  for  each  of  the  fund  source  codes. 

IOTF  (5)  Hollerith  representation  for  each  of  the  five  years. 

IPROGS  (10)  Hollerith  representation  for  each  of  the  ten  programs. 

IRECA  (2,5,12)  A  temporary  location  that  is  filled  with  the  activity  names  of  consecutive  records  with 
equivalents  IDs  as  read  from  the  data  base. 

IRIGHT  (2,26,5)  An  identifier  and  up  to  25  row  names  which  will  have  their  right-hand  sides 
modified. 

ITMP  (2,5)  A  temporary  location  into  which  the  activity  name  is  read  for  the  five  years  from  the  data 
base. 

ITQS  (5)  Indicator  during  a  data  base  update  which  notes  that  the  TQS  for  all  facilities  has  already 
been  modified  in  the  given  year. 

JDENT  (38)  An  expanded  array  for  holding  data  to  be  used  during  comparisons  and  output. 

JDICT  (4,400)  A  temporary  location  for  the  T/M/S  as  read  from  the  Dictionary. 
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KASTID  (2)  Storage  for  the  current  ID  representing  the  data  base  records  under  consideration. 

LASTID  (2)  Storage  for  the  current  ID  representing  the  requests  for  optimization  under  consideration. 

MIXUP  (3,100)  The  data  base  activity  name  and  year  which  is  to  be  updated. 

NARFX  (12)  Hollerith  representation  for  each  of  the  12  rework  facilities. 

NARFY  (12,2)  Hollerith  representation  for  lower  and  upper  row  identification  when  parametric 
equations  are  produced. 

NBAD  (13)  Temporary  noting  of  requests  for  optimization  when  there  is  no  corresponding  data  base 
record. 

NBASE  (13)  Temporary  noting  of  data  base  records  for  which  there  was  no  request  for  optimization. 

NMATCH  (13)  Temporary  noting  of  data  base  records  for  which  a  request  for  optimization  was  made. 

NRIGHT  (5)  Quantity  of  right-hand  side  modifications  for  each  of  up  to  five  requests. 

Arrays,  Real*8 

BNDB  (5,100)  Up  to  100  bound  percent  variation  exceptions  over  five  years. 

BNDY  (5,5)  One  to  five  sets  of  standard  bound  percent  variations  over  five  years. 

BOUNDA  (2)  Temporary  locations  for  computed  values  used  as  column-row  elements  when  parametric 
equations  are  called  for. 

BOUNDS  (2,2000)  Save  area  for  (1)  the  requirement  as  given  in  the  data  base  activity  record  and  (2) 
the  sum  of  all  requirements  having  the  same  ID  and  requested  for  optimization.  Data  is  later  used 
with  bound  percent  variations  to  produce  hard  physical  column  bounds. 

CAPB  (5,9,7)  Adjusted  capacity  of  a  NARF  shop  for  a  given  year.  CAPB  (year,  shop,  NARF)  = 
TOTCAP  minus  all  Base  Workloads. 

CML  (9,7,5)  Current  manning  level  in  manhours  for  a  NARF  shop  and  spread  over  five  years. 

CMLA  (9,7,5)  Current  manning  level  in  manhours  adjusted  by  the  workload  from  data  base  records 
not  requested  for  optimization. 

COSTB  (5,9,7 ,8)  Costs  and  incremental  costs  for  all  shift  and  manpower  changes. 

EF2  (5)  Efficiency  factor  for  second  shift. 

EF3  (5)  Efficiency  factor  for  third  shift. 

FRIGHT  (5,25,5)  Parametric  multipliers  used  to  alter  current  values  for  the  right-hand  side  of  specified 
rows. 

FIXUP  (21,100)  User  supplied  data  to  replace  specific  elements  of  corresponding  data  base  records. 

GAR  (7,5)  The  general  and  administrative  rate  for  each  NARF  over  five  years. 

HCOST  (4)  Temporary  array  used  for  hire/layoff  incremental  cost  computations. 

HPY  (7,5)  Hours  per  year  when  multiplied  by  the  CML  (9,7,5)  array,  is  the  direct  labor  hours  for  each 
NARF  shop  over  five  years. 

PCAP2  (5)  A  percentage  applied  to  first  shift  total  capacity  to  generate  second  shift  total  capacity. 
The  percentage  is  applied  to  all  NARFs  for  the  particular  year. 

PCAP3  (5)  Same  as  PCAP2  (5)  but  third  shift  total  capacity  is  generated. 

PHPY  (5)  Pay  hours  per  year— currently  not  used  by  the  program. 

PVAR  (5)  Percent  variations  applied  when  parametric  equations  are  used  in  place  of  column  bounds. 

RECB  (21,5,12)  (sec.  IVa)  A  temporary  array  to  hold  the  21  numerical  data  base  elements  over  five 
years.  From  one  to  12  facilities  that  all  have  the  same  ID  are  put  here  at  one  time. 
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REQID  (1GQ0)  The  values  associated  with  the  name  in  array  IDSAVE  (2,1000)  that  became  the 
right-hand  side  in  the  matrix  under  the  heading  IDs. 

TEM  (15)  A  temporary  area  for  the  data  read  from  the  initial  user  control  cards. 

TMP  (21,5)  A  temporary  area  into  which  data  base  record  values  are  stored  before  being  moved  to 
array  RECB. 

TOTCAP  (5,9,7)  The  original  total  capacity  of  each  NARF  shop  for  five  years. 

SUMN  (8,10,12,5)  An  initialized  array  where  data  base  values  not  subjected  to  L.P.  optimization  are 
summed  according  to  eight  fund  sources,  ten  programs,  twelve  facilities,  and  five  years.  The  final 
array'is  passed  to  the  program  which  produces  reports. 

SUMR  (3)  A  temporary  array  for  computing  the  limits  of  increased  or  decreased  work  force  allowed 
before  a  cost  for  such  changes  is  either  first  applied  or  increased.  That  is,  Phase  I  limit. 

VALU  (21)  The  temporary  area  where  values  used  to  update  data  base  record  elements  are  initially 
stored. 

Variables,  Integer 


IAY  A  user  input  for  the  actual  first  year  (e.g.  75)  in  the  range  of  years  for  which  a  solution  is 
requested. 

IBOP  An  indicator  for  the  bounds  (1)  or  parametric  (2)  user  supplied  option. 

IDENT  A  4-byte  identifier  for  the  users’  input  cards. 

IEND  Indicator  for  data  base  end-of-file. 

IMCBB  User  indicator  regarding  initial  hire/layoff  cost  input  cards.  1  means  that  cards  are  not  included 
and  the  cost  is  assumed  to  be  zero.  2  means  that  cards  are  included  and  they  contain  the  cost 
information. 

IMOV  Set  during  data  base  processing. 

1  =  move  next  set  of  L.P.  requests  to  array  IDNA 

3  =  move  next  set  of  data  base  records  to  arrays  IRECA  and  RECB 

2  —  both  1  and  3 

INOS  User  supplied  indicator  designating  hire/layoff  by  shop  or  by  NARF. 

INC  User  indicator  (1,2 ,3 ,4  or  5)  for  the  number  of  cards  following  the  first  and  containing  yearly 
information. 

ISET  Switch  used  when  reading  the  data  base  and  moving  record  contents  from  ITMP  and  TMP  to 
IRECA  and  RECB. 

ISETR  Localized  switch  for  preventing  error  message  duplication. 

ISTOP  Set  to  1  upon  occurrence  of  an  error  and  periodically  tested  to  stop  job  processing. 

IUPLO  Indicator  on  user  request  cards  (column  15)  which  indicates  how  information  on  this  card  is  to 
be  used. 

IWPR  Total  number  of  numeric  data  fields  on  a  data  base  record. 

IYA  The  first  year  (1,2, 3 ,4  or  5)  in  the  range  of  years  to  be  subjected  to  optimization. 

IYB  The  last  year  in  the  range  of  years  to  be  subjected  to  optimization  such  that  IYB  >  IYA. 

IYC  The  specific  year  the  data  on  an  input  card  represents. 

JBDS  Number  of  bound  names  and  values  saved  in  arrays  IBOUND  and  BOUNDS. 

0  <  JBDS  <  2000 

JBNDS  Number  of  bound  exceptions  for  all  sets  of  bounds  requested. 

0  <  JBNDS  <  100 
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JID  Number  of  ID  row  names  and  right-hand  side  values  saved  in  arrays  IDSAVE  and  REQID. 

0  <  JID  <  1000 

JIDN  Number  of  unique  ID  NARFs  the  user  requests  for  optimization. 

0  <  JIDN  <  2000 

KC  Data  base  record  field  for  the  computed  total  cost. 

KG  Data  base  record  field  for  the  general  and  administrative  rate. 

KR  Data  base  record  field  for  the  computed  requirement. 

LUD  Logical  input  unit  from  which  the  TEC— TMS  dictionary  is  read. 

LUI  Logical  input  unit  from  which  the  data  base  is  read. 

LU0  Logical  output  unit  to  which  the  matrix  is  written. 

LUQ  Logical  output  unit  to  which  the  dictionary  is  written. 

LUU  Logical  output  unit  to  which  the  other  data  used  in  the  report  generator  is  written. 

LUV  Logical  input  unit  from  which  the  manning  level  capacity  and  cost  data  is  read. 

NBS  Number  of  sets  of  bounds. 

0  <  NBS  <  5 

NFACIL=12  Number  of  Facilities. 

NFUNDS=8  Number  of  Fund  Sources. 

NNARFS=7  Number  of  NARFs. 

NPROGS=10  Number  of  Programs. 

NRS  Number  of  sets  of  parametrics. 

0  <  NRS  <  5 

NSHOPS=9  Number  of  shops  per  NARF. 

NYEARS=5  Number  of  years  of  information  on  the  data  base. 

All  other  integer  variables  are  localized  and  follow  the  standard  FORTRAN  type  conventions: 


I 

J 

M 

II 

JJ 

MM 

III 

JRHS 

MMM 

ICODE 

K 

MXX 

IGOTD 

KK 

N 

ITEMQ 

KKK 

NN 

HEMP 

KIDN 

NF 

ITEMR 

L 

NP 

IYD 

LL 

NXX 

LN 

Variables,  Real*8 

SUM  Sum  of  all  requirements  for  a  particular  ID  that  is  requested  for  optimization. 

XLML  User  supplied  percentage  applied  to  the  current  manning  level.  The  product  is  the  layoffs  in 
manhours  allowed  before  costs  are  either  incurred  or  increased. 

XUML  User  supplied  percent  applied  to  the  current  manning  level.  The  product  is  the  manhours  of 
hiring  allowed  before  costs  are  either  incurred  or  increased. 
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Localized  Variables,  Real*8 


BVAL 

PERCAP 

PROD 

TEMP 

DISCUSSION  OF  PROGRAM  CODE 

i 

This  section  first  considers  the  subroutines  and  functions  used  by  the  main  routine.  Then  the 
main  program  is  discussed  using  the  entries  in  the  location  field  plus  or  minus  a  number  of  lines, 
and  the  blocks  in  figure  2b,  as  references. 

Subroutine  MOVE  (A,B,C,D,E) 


This  assembler  language  subroutine  handles  the  movement  of  a  string  of  bytes  from  one 
location  to  another.  It  makes  use  of  the  MVE  instruction  which  limits  the  number  of  bytes  to  256. 
The  source  string  begins  at  the  Bth  byte  of  the  Ath  address.  The  target  string  begins  at  the  Dth 
byte  of  the  Cth  address.  E  characters  are  moved  where  1  <  E  <  256. 


e.g.  CALL  MOVE  (SORC  (2),3,  TARG  (1),14,5) 


SORC 

V 

W 

X 

Y 

Z 

TARG 

V 

w 

X 

Y 

z 

1  2  3  4  5 


Function  LJABF  (A,B) 


This  assembler  language  function  is  for  isolating  the  Bth  byte  of  the  Ath  address.  The  byte  is 
left  justified  in  Register  0  and  blank  filled  on  the  right. 


e.g.  I  =  LJABF  (REC  (2), 10) 


REC 


M 


K 


The  content  of  I  after  returning  from  the  function  is 
I  =  D5404040,  6 


Function  NTOI(I) 


This  assembler  language  function  moves  bits  4  thru  7  of  a  word  to  bits  28  thru  31  of  the 
same  word,  and  then  zeros  bits  0  thru  27.  The  function  is  called  under  the  assumption  that  a 
numeric  byte  resides  left-justified  in  the  word.  The  procedure  converts  the  byte  to  an  integer. 
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e.g.  A  seven  is  read  under  an  A1  format 

F7404040 

000000F7 

00000007 

e.g.  A  blank  is  read  under  an  A1  format 

40404040 

00000040 

00000000 

e.g.  A  V  is  tpad  under  an  A1  format 

E5404040 

000000E5 

00000005 

No  provision  is  made  for  data  checking.  This  should  be  done  before  using  the  function. 

Subroutine  SEARCH  (IVAL,1\II\I) 

The  dictionary  produced  during  creation  of  the  data  base  was  read  partly  into  array  IDICT  in 
common  block  DICT.  The  number  of  dictionary  records,  IDR,  is  also  maintained  in  the  array  and 
is  assumed  to  be  less  than  or  equal  to  400.  Each  record  within  IDICT  is  eight  bytes  long  and 
contains  a  two  byte  CNA/Data  Base  assigned  code  (character  position  1  and  2)  to  represent  each 
four  byte  TEC  code  (character  positions  5-8)  for  the  type-model-series.  The  dictionary  is  required 
because  the  data  base  has  the  CNA-assigned  code  whereas  the  users  will  be  supplying  the  TEC. 
Therefore,  before  data  comparisons  are  made,  a  translation  from  the  TEC  to  the  CNA  code  is 
necessary.  A  conversion  from  the  CNA  code  back  to  the  user  identifiable  code  is  necessary  when 
error  messages  are  printed. 

Since  both  sets  of  codes  are  in  ascending  order,  a  binary  search  is  performed.  NN  is  either  the 
value  one  or  two  when  entering  the  subroutine.  If  NN  equals  one,  the  CNA  code  portion  of  the 
dictionary  (IDICT)  is  searched  until  a  match  with  IVAL  is  found.  If  NN  equals  two,  the  TEC 
portion  of  the  dictionary  (IDICT)  is  searched  until  a  match  with  IVAL  is  found.  In  both  cases 
upon  a  match  with  IVAL,  NN  is  set  to  the  record  number  of  the  dictionary  for  use  in  the  main 
program. 

Subroutine  C0NVRT 


Columns  17  thru  80  of  a  card  used  from  file  IDNARF  contain  either  blank  or  numeric  data. 
To  distinguish  between  blank  and  zeros  the  64  characters  are  first  stored  in  array  ICD  using  a  64A1 
format.  At  entry  point  CONVRT  18  distinct  floating  point  values  are  constructed  in  array  VALU 
from  the  hollerith  in  ICD.  Array  ICHK  is  initialized  to  and  remains  zero  when  a  field  contains  all 
blanks.  Any  non-blank  entry  forces  one  of  the  21  positions  of  ICHK  to  one.  Locations  15,  19  and 
21  are  not  used.  They  are  included  to  allow  for  alignment  of  data  base  elements  with  elements 
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from  the  cards  to  be  used  in  updating  the  data  base.  The  meaning  and  position  of  each  field  can  be 
obtained  from  the  user’s  manual. 

Function  NTOI  converts  the  hollerith  number  to  an  integer  so  that  an  arithmetic  operation 
can  be  performed.  A  blank  becomes  a  zero.  No  check  is  made  for  a  decimal  point  since  none  is 
expected.  All  data  has  an  assumed  decimal  position  and  it  is  accounted  for  in  the  main  routine. 

At  entry  point  BNDRHS  five  years  of  blank  or  numeric  data  is  expected.  The  first  five 
positions  of  arrays  VALU  and  ICHK  are  used  in  the  same  manner  described  for  entry  CONVRT. 
The  five  data  fields  are  always  17-24,  25-32,  33-40,  41-48,  and  49-56. 

Main 


The  program  is  initialized  by  reading  the  CNA/Data  Base  tape  file.  This  constitutes  establishing 
CNA  codes  for  all  TECs,  sorting  the  hit  parade*,  incorporating  option  cards,  establishing  costs,  and 
marrying  constraints  with  the  proper  TEC.  The  row  and  column  names  for  the  matrix  are 
established.  The  above  information  is  then  used  to  generate  the  matrix.  (A  flow  chart  of  the 
program  is  shown  in  figure  3.) 

0  Establish  and  initialize  variables  and  arrays. 

91—1  Read  the  first  control  card. 

91+1  If  the  last  year  in  the  range  IYA  to  IYB  is  not  given,  set  IYB  equal  to  IYA. 

91+2  If  variable  INC  on  the  first  control  card  is  not  given,  the  default  is  1.  Print  error  message. 

93  ISET  is  used  to  indicate  that  information  about  the  first  year  is  given. 

93+1  Read  INC  data  cards  with  yearly  information.  If  IYC  equals  IYA  then  set  ISET  to  1  and  test 
the  data. 

89  Move  the  card  data  to  permanent  appropriate  storage  areas. 

99+1  If  ISET  is  1  then  the  required  first  year  has  been  given. 

97  The  number  of  yearly  data  cards  must  be  less  than  or  equal  to  the  number  of  years  in  the 

range  from  IYA  to  IYB.  If  equal,  it  is  assumed  that  all  years  are  accurately  given. 

103  Fill  missing  years  with  the  previous  year’s  data. 

108  Percentage  for  allowable  manning  variance  is  converted  to  a  decimal. 

50  Read  all  cards  that  belong  to  the  hit  parade  (IDN),  bounds  specifications  (BNDS),  right-hand 

side  modifications  (RHS),  general  and  administrative  rate  changes  (GARC),  and  last  card 
(END).  All  IDENT  except  END  must  be  stated  on  the  first  card  and  may  thereafter  be 
stated  or  left  blank.  A  group  of  cards  belonging  to  a  given  category,  such  as  BNDS,  is 
terminated  only  by  recognition  of  a  different  but  valid  identifier  such  as  END  or  GARC. 

An  invalid  IDENT  causes  an  error  message.  An  unestablished  IDENT  is  a  blank  with  no 
valid  IDENT  previously  given. 

52+1  Check  for  IDN. 

52+2  Check  for  data  on  the  IDN  card. 

53  Check  for  BNDS. 


*Hit  parade  is  the  term  used  to  define  the  TMSs/TECs  to  be  considered  by  the  planning  model  (see  page  38  of  the  User’s  Guide). 
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FIG.  3:  MACRO  FLOW  CHART  OF  THE  MATRIX  GENERATOR  PROGRAM  (SHEET  1) 
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FIG.  3:  MACRO  FLOW  CHART  OF  THE  MATRIX  GENERATOR  PROGRAM  (SHEET  2) 


55 

55+1 

54 

57 

57+1 

56 

69 

69+1 

58 

58+1 

58+2 

72 

110 

114 

114+3 

111 

120 

130 

150 

158 

156+1 

155+1 

152+1 

152+3 

133 

151+1 


Check  for  a  name  on  the  BNDS  card. 

Save  up  to  five  sets  of  bound  names  and  percent  variation  in  IBNDX  and  BNDY. 

Check  for  RHS. 

Check  for  a  name  on  the  RHS  card. 

Save  up  to  five  sets  of  right-hand  side  modification  names  in  IRIGHT. 

Check  for  GARC. 

Check  for  data  on  the  GARC  card. 

Put  general  and  administrative  rate  changes  for  the  given  NARF  and  all  specified  years  into 
GAR. 

Check  for  END. 

Check  for  blank. 

Print  error  message  for  invalid  IDENT. 

Go  to  location  determined  by  ICODE  or  print  unestablished  IDENT  message. 

Under  IDN  (ICODE=l)  check  for  code  (blank,  L,  B  or  D)  in  variable  IUPLO.  If  B  or  D  go 
to  111  and  don’t  include  name  ICLRW  in  hit  parade  list,  B  is  a  data  base  record 
modification  and  D  is  a  record  deletion. 

Include  the  rework  activity  in  the  hit  parade  list. 

If  the  code  is  a  blank,  no  data  base  updates  are  included.  Otherwise  (L)  updates  are 
included. 

Put  data  base  updates  into  arrays  MIXUP  and  FIXUP. 

If  the  limit  on  number  of  sets  of  bound  has  already  been  reached,  ignore  this  card. 
Otherwise,  include  this  card’s  data  with  the  bound  exceptions  in  arrays  IBNDA,  IBNDC, 
and  BNDB.  No  check  is  made  for  the  maximum  allowed. 

If  the  limit  on  the  number  of  sets  of  right-hand  side  modifications  has  already  been  reached, 
ignore  this  card.  Otherwise,  accept  up  to  25  modification  statements  and  put  the  row 
names  and  data  in  arrays  IRIGHT  and  FRIGHT. 

The  card  or  card  image  fixed  length  file  called  IDDI  contains  current  manning  levels  (63 
cards),  shop  capacities  (63  cards),  first  shift  manhour  costs  (63  cards),  incremental  second, 
third  and  post  third  shift  manhour  cost  (3*63  cards),  manhour  hire  and  layoff  costs 
resulting  from  manpower  changes  beyond  a  predetermined  range  (2*63  card)  and  optional 
specifications  for  hire  and  layoff  costs  resulting  from  manpower  changes  within  the 
predetermined  range  (126  cards). 

Read  the  current  manning  level  and  convert  men  to  direct  manhours. 

Read  shop  capacities  and  spread  all  year  n  to  year  n+1  if  year  n+1  is  not  given.  n=l,2,3,4. 

Zero  that  portion  of  the  cost  array  where  initial  hire  and  layoff  costs  are  kept. 

If  IMCBB  on  the  first  control  card  was  a  2,  then  initial  hire/layoff  costs  are  included  in  the 
IDDI  file. 

Read  the  cost  cards  in  file  IDDI  into  array  COSTB  and  spread  all  year  n  to  year  n+1  if 
year  n+1  is  not  given.  n=l,2,3,4. 

Check  that  the  initial  hire/layoff  costs  are  always  less  than  the  costs  outside  the  initial 
manpower  hire/layoff  range. 

Modify  the  incremental  costs  for  second  and  third  shifts  according  to  their  efficiency  factors 
and  the  cost  of  first  shift  operations. 
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134—1  The  dictionary  is  read  into  common  array  IDICT  and  program  array  JDICT.  A  count  NDR  is 
also  maintained  in  the  common  block.  Array  JDICT  is  used  solely  for  reproducing  the 
T/M/S  on  file  LUQ.  The  first  dictionary  record  is  printed  as  an  indication  that  file  IDDI 
contained  the  correct  number  of  cards  when  both  the  IDDI  file  and  the  dictionary  are 
input  from  the  card  reader.  The  first  two  bytes  of  the  first  record  in  array  IDICT  must  be 
AA. 

170  The  nature  of  the  input  under  IDENT  IDN  allows  for  duplicate  ID  NARF  specification.  That 

is,  when  an  ID  NARF  is  to  be  included  in  the  hit  parade  and  data  base  changes  are  also 
requested  for  individual  years,  separate  entries  with  the  same  ID  NARF  are  put  into  the 
hit  parade  list.  This  section,  using  a  bubble  sort,  orders  the  list  and  eliminates  any 
duplicate  entries. 

160  Since  the  user  specifies  his  code  as  a  TEC  and  the  data  base  has  the  CNA  code,  word  1  of 

each  record  in  array  is  changed  from  the  TEC  to  the  CNA  code.  An  invalid  TEC  is 
eliminated  from  the  list.  The  dictionary  and  hit  parade  list  are  passed  sequentially  since 
both  are  in  ascending  order. 

164+2  Compare  the  TEC  in  the  dictionary  with  the  TEC  in  the  hit  parade  list. 

163  Change  the  TEC  to  the  CNA  code. 

162  Eliminate  an  invalid  TEC  from  the  hit  parade  list. 

140  Three  more  arrays  (IBNDA,  IRIGHT,  and  MIXUP)  contain  the  user  specified  TEC.  These 

must  also  be  changed  to  the  CNA  code.  Subroutine  Search  is  used  to  locate  the  matching 
TEC  in  the  dictionary  array. 

143  Change  the  TEC  in  a  bounds  exception  request  to  the  corresponding  CNA  code. 

147  Change  the  TEC  in  the  right-hand  side  modification  requests  to  the  CNA  code. 

128  Change  the  TEC  in  the  data  base  update  request  to  its  CNA  code. 

180  All  previous  inputs  have  now  been  prepared  for  creating  the  matrix.  This  card  image  file 

follows  a  very  specific  sequence  of  events  under  rigid  format  specifications  (see  the 
“Matrix  File  Format”  section).  The  first  section  names  the  matrix  and  provides  for 
naming  and  typing  all  rows.  These  rows  are  somewhat  a  function  of  user  inputs.  The 
options  on  the  first  control  card  provide  for  (a)  the  use  of  bound  (IBOP=l)  or  the  use  of 
parametric  equation  (IBOP=2)  and  (b)  manning  changes  at  either  the  NARF  level 
(INOS=l)  or  the  shop  level  (INOS=2).  Variable  IBOP  affects  the  rows  generated  in  block 
B  (figure  2b)  and  variable  INOS  affects  the  rows  generated  in  block  D  of  the  matrix.  Also 
affecting  the  rows  is  the  number  of  years  (IYA  to  IYB)  for  which  optimization  is 
requested.  Excluding  the  COST  row,  a  two  year  request  will  cause  twice  as  many  rows  to 
be  generated  as  a  single  year  request. 

187  NAME  of  the  matrix  is  MINUM. 

181+1  Identification  that  the  following  cards  contain  row  names  and  types. 

182+1  The  objective  function  (type  N)  is  called  COST  and  is  represented  as  block  A. 

183+1  Blocks  C  and  D  are  produced  next.  The  number  of  rows  here  is  a  function  of  the  number  of 

years.  A  minimum  of  189  rows  is  created  at  statement  number  186  for  block  C.  Block  D 
is  also  a  function  of  variable  INOS.  When  INOS=2,  a  row  is  established  for  each  shop 
using  the  shop  numbers  1  through  9.  Otherwise  INOS=l  and  only  one  row  is  established 

for  all  shops  using  a  zero  shop  number.  Blocks  C  and  D  are  produced  together  and  will 
appear  as  shown  in  the  following  list  depending  on  the  value  of  INOS. 
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190 


INOS=l 

INOS=2 

FA1 1  N 

FA11  \ 

SA1 1 

SA1 1  I 

TA1 1 

’  Initial  Rows  \  > 

MA01 

MAI  1  j 

NA01 

NA1 1  I 

PA01 

PA1 1  / 

FA21  ' 

I  FA21  \ 

SA21 

|  Repetition  SA21 

TA21  , 

1  TA21 

FA31 

MA21 

SA31 

NA21 

TA31 

PA21  / 

FA91 

FA91 

SA91 

SA91 

TA91 

TA91 

FBI  1 

MA91 

SB1 1 

NA91 

TB1 1 

PA91 

MB01 

FBI  1 

NB01 

SB1 1 

PB01 

TB1 1 

FB21 

MB11 

SB21 

NB11 

TB21 

PB11 

Initial  Rows 


Repetition 


Block  B  is  dependent  on  the  number  of  years  and  the  variable  IBOP.  When  IBOP=l ,  bounds 
are  requested  and  one  row  is  established  for  each  unique  ID  from  the  hit  parade  list  in 
array  IDN.  When  IBOP=2,  parametric  equations  are  used  to  control  assignments.  In 
addition  to  the  one  row  established  for  each  unique  ID,  two  more  rows  are  created  for 
each  IDN  in  the  hit  parade  list.  Block  A,  for  the  different  values  of  IBOP,  will  appear  as 
follows  when  given  partial  example  hit  parade. 


ID  NARF 

Sample  hit  parade  array  IDN 

amnaabcb 

amnaabce 

amnaabci 

IBOP=l 

IBOP=2 

Rows  generated 

amnaabca 

AMN1ABCa 

AMN1ABCN 

AMN1ABCZ 

AMN1ABCQ 

AMN1ABC2 

AMN1ABCU 

AMN1ABC6 
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The  sample  IDN  list  shows  the  TEC  translated  to  the  CNA  code  AM.  The  fund  source  N  also 
came  from  the  dictionary  as  did  the  blank  which  will  be  filled  with  the  year.  Program  A, 
Subprogram  B,  and  Customer  C  follow.  These  seven  bytes  make  up  the  ID.  The  last  bytes  (B,E,I) 
are  the  NARFs.  For  a  group  of  n  ID  NARFs  with  the  same  ID,  one  row  is  made  when  IBOP=l. 
Otherwise  2n+l  rows  are  created  for  that  group. 

The  following  list  gives  the  bytes  substituted  for  the  facility  in  the  two  additional  rows 
generated  when  parametric  equations  are  used.  The  *  mark  the  facilities  used  in  the  previous 
example. 


*  *  * 


Facility 

A 

B 

c 

D 

E 

F 

G 

H 

1 

J 

K  L 

Parametric  Row 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 

W  X 

Substitution 

Y 

Z 

0 

1 

2 

3 

4 

5 

6 

7 

8  9 

200-1  The  heart  of  the  program  begins  with  identification  of  the  columns  section.  An  additional 
hit  parade  element  of  all  Is  is  tacked  onto  the  end  of  the  list  to  facilitate  in  the  handling 
of  remaining  data  base  records  after  all  hit  parade  requests  have  been  processed.  Several 
variables,  local  to  data  base  processing  while  creating  the  column  section  of  the  matrix, 
are  initialized.  A  header  for  the  data  base  updates  is  also  printed,if  any  were  requested. 

The  data  base  processing  begins  with  variable  IMOV  being  used  to  control  the  movement  of 
groups  of  records  containing  the  same  ID.  When  IMOV  equals  1  or  2,  the  next  set  of  hit  parade 
requests  is  moved  from  array  IDN  to  appropriate  locations  in  array  IDNA.  And,  when  IMOV  equals 
2  or  3,  the  next  set  of  data  base  records  are  read  and  ultimately  stored  in  arrays  IRECA  and 
RECB.  Thus,  the  hit  parade  and  the  data  base  are  passed  sequentially  from  beginning  to  end  with 
the  next  group  of  records  that  contain  the  same  ID  being  considered.  The  ID  representing  each 
group  is  stored  in  LASTID  for  the  current  group  of  hit  parade  requests  and  in  KASTID  for  the 
current  group  of  data  base  records.  Bytes  1,2, 3, 5, 6  and  7  from  LASTID  and  KASTID  are  compared 
to  determine  the  next  step.  If  LASTID  is  less  than  KASTID,  a  hit  parade  request  was  made  for 
which  no  data  base  record  exists.  An  error  message  for  the  ID  is  printed,  IMOV  is  set  to  1  and  the 
next  group  of  hit  parade  requests  is  moved  to  array  IDNA.  If  LASTID  is  greater  than  KASTID,  no 
hit  parade  request  was  made  for  all  current  data  base  records  being  considered.  This  data  base 
information  will  be  used  to  adjust  the  current  manning  level  in  array  CMLA  and  the  shop  capacities 
in  array  CAPB.  The  final  adjusted  values  will  later  become  part  of  the  matrix  right-hand  side. 
Values  are  also  accumulated  in  array  SUMN  for  use  in  the  Report  Generator.  IMOV  is  set  to  3  and 
the  next  group  of  data  base  records  is  input  to  arrays  IRECA  and  I  RECB.  If  LASTID  and  KASTID 
are  equal,  further  comparison  at  the  facility  level  is  needed.  That  is,  how  does  each  hit  parade 
request  under  the  given  ID  compare  to  the  records  read  from  the  data  base?  When  a  facility  request 
exists  for  which  there  is  no  data  base  record,  an  error  message  for  the  ID  NARF  is  printed.  When  a 
data  base  record  exists  for  which  no  hit  parade  request  was  made,  the  data  base  record  values  are 
accumulated  in  array  SUMN  and  used  to  adjust  CMLA  and  CAPB.  Finally,  when  the  hit  parade 
request  exactly  matches  the  data  base  record,  entries  will  be  written  into  the  matrix  at  blocks  E,  F, 
G,  H,  and  I  shown  in  figure  2b.  Block  E  is  the  eight-byte  column  name  from  array  IDNA  and  for 
which  an  exact  data  base  match  occurred.  The  column  for  block  E  will  compare  with  a  previously 
established  row  in  block  B  with  the  exception  of  byte  number  eight.  A  value  of  ‘1’  will  be  entered 
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in  block  G  linking  the  column  to  its  corresponding  row.  Once  a  value  has  been  entered  for  a  given 
column,  all  values  for  that  particular  column  must  be  entered  sequentially.  When  a  new  column  is 
identified,  no  more  values  can  be  entered  for  the  previous  column.  The  same  column  then  has  the 
cost  entry  (block  F)  from  the  data  base  entered  at  the  COST  row  (block  A).  If  the  particular 
facility  is  a  NARF  (A  thru  G),  entries  are  also  made  for  blocks  H  and  I.  They  are  otherwise 
omitted  since  shift  capacities  and  manning  are  not  of  concern  in  the  other  facilities  (H  thru  L). 


A  sum  of  the  requirements  is  found  for  all  matches  and  the  row  name  (block  B)  or  ID  along 
with  the  sum  is  saved  for  later  entry  into  the  right-hand  side  at  block  FF.  Also,  if  bounds  are  to  be 
used,  the  individual  requirements  for  each  match,  the  column  name,  and  the  sum  of  all 
requirements  are  saved  for  later  computation  of  the  bounds  to  be  placed  upon  the  columns. 
Otherwise  parametric  entries  for  the  additional  rows  generated  in  the  rows  section  are  produced. 


220+1 


228+1 

222 

224 

224+3 

219 

230 

231 


232 

210 

218 

237 


243 


243+1 

240 


The  next  group  of  hit  parade  requests  with  the  same  ID  is  to  be  moved  into  the  IDNA  array 
which  is  first  initialized  to  zero.  Array  LASTID  is  set  equal  to  the  first  request  from  the 
group. 

Array  IDN  is  checked  for  total  depletion. 

This  point  is  returned  to  from  219+1.  It  is  jumped  over  during  transfer  of  the  first  ID 
NARF  from  array  IDN  to  array  IDNA.  That  is  because  a  group  of  hit  parade  requests 
must  contain  at  least  one  element. 

The  numeric  value  for  the  facility  (A=l,  B=2,  . . .  L=12)  is  determined. 

Array  IDNA  is  filled  from  array  IDN  in  all  years  requested  (from  IYA  to  IYB).  The  year  in 
byte  position  four  is  filled  in  with  the  call  to  MOVE. 

The  current  location  KIDN  in  array  IDN  is  incremented  and  a  jump  to  222  is  taken. 

IMOV  is  tested  to  determine  whether  the  next  group  of  data  records  with  the  same  ID  is  to 
be  moved  to  arrays  IRECA  and  RECB.  If  it  is,  arrays  IRECA  and  RECB  are  first 
initialized  to  zero. 

Variable  ISET  is  checked.  It  is  used  to  control  the  reading  of  data  base  records  into  arrays 
ITMP  and  TMP,  and  then  the  movement  of  the  record  from  ITMP  and  TMP  to 
appropriate  position  in  arrays  IRECA  and  RECB.  ISET=1  indicates  the  beginning  of  the 
data  base.  ISET  then  switches  between  zero  and  two. 

Five  years  of  data  contained  in  five  consecutive  data  base  records  are  read  into  arrays  ITMP 
and  TMP  from  the  data  base. 

End-of-file  has  been  read  and  array  ITMP  is  set  to  all  Is  to  signify  such. 

Continuation  after  reading.  A  check  is  made  for  the  particular  facility  A  thru  L. 

Check  to  determine  if  the  General  and  Adminstrative  Rate  has  already  been  set.  This  record 
element  is  constant  throughout  the  data  base  for  a  particular  year  and  a  particular  NARF. 
Part  or  all  of  array  GAR  may  have  been  initialized  by  the  user.  This  allows  for  changing 
the  G&A  rates  that  may  have  been  incorrect  on  the  data  base. 

Variable  LN  is  set  to  the  particular  facility  just  read  into  array  ITMP.  This  is  done  since  an 
exit  may  be  taken  at  statement  239+6  and  the  facility  is  still  to  be  used  at  statements  241 
and  242. 

Variable  ISET  is  2  if  and  only  if  the  record  being  considered  is  not  the  first  of  a  group 
containing  the  current  data  base  ID. 

If  this  is  the  first  record  of  a  group,  set  array  KASTID.  It  contains  the  ID  for  the  current 
group  of  data  base  records  and  will  be  used  later.  Also  exit  from  this  program  section  if 
end  of  file  (IEND=1)  had  been  used. 
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239  Check  the  ID  from  the  record  read  into  array  ITMP  against  the  ID  representing  the  current 

group  as  stored  in  array  KASTID.  Exit  from  this  program  section  if  the  IDs  are  different. 

236  If  ITMP  and  TMP  hold  the  first  records  of  a  group  or  hold  records  that  have  the  same  ID  as 

the  first  record  of  the  group,  move  the  data  from  array  ITMP  and  TMP  to  arrays  IRECA 
and  RECB,  respectively. 

250  Once  arrays  IRECA  and  RECB  have  been  filled  with  all  data  for  a  particular  ID,  the  arrays, 

MIXUP  and  FIXUP,  containing  information  about  data  base  updates,  are  checked  for  ID 
matches.  A  total  of  18  modifications  could  have  been  made  for  each  record  read  from  the 
i  data  base.  It  is  theoretically  possible  to  recreate  the  entire  data  base  through  use  of  these 
updates.  The  only  requirement  is  that  a  new  ID  cannot  be  introduced.  The  data  for  a 
particular  facility  in  a  particular  year  and  for  a  currently  existing  ID  may  be  added, 
modified  or  deleted.  Updates  are  entered  using  the  hit  parade  cards  in  file  IDNAR.  A  code 
indicates  whether  the  rework  activity  is  to  be  included  in  the  hit  parade  and/or  update 


list. 

Column 

What 

Comment 

6-12 

ID 

Must  match  an  ID  on  the  data  base. 

13 

FACILITY 

A  thru  L.  It  need  not  match  an  existing  facility  for  the  ID 

14 

YEAR 

A  —  all  years. 

n  —  particular  year:  1  <  n  <  5. 

15 

CODE 

A  —  rework  activity  to  be  included  in  the  hit  parade  li; 
Update  positions  are  ignored  since  none  are  expected. 

L  —  rework  activity  to  be  included  in  the  hit  parade  list. 
Update  will  also  be  made  to  the  data  base  as  requested. 

B  —  do  not  include  the  rework  activity  in  the  hit  parade  list. 
This  request  is  for  data  base  updates  only. 

D  —  delete  the  data  base  record.  Do  not  include  the  rework 
activity  in  the  hit  parade  list. 

17-72  UPDATES  Eighteen  potential  data  base  modifications  can  be  made. 

Only  non-blank  field  will  cause  any  updating.  Given  that 
ID’s  match,  a  facility  is  added  when  it  is  not  part  of  the 
data  base  but  it  is  entered  in  the  hit  parade  list  with  a 
code  of  B  or  L.  All  18  of  the  update  items  should  be 
specified.  Any  that  are  not  are  assumed  to  be  zero.  Again, 
given  the  ID’s  match,  a  facility  may  be  deleted  when  a  D 
code  is  used.  This  option  zeroes  the  appropriate  location  in 
array  IRECA  to  signify  that  no  data  base  record  exists 
here.  The  values  contained  in  the  corresponding  position  of 
array  RECB  are  not  altered.  They  are  used  only  when  a 
non-zero  value  is  contained  in  IRECA.  The  final  data  base 
update  capability  is  to  modify  an  existing  data  base  entry. 
This  is  identical  to  the  add  except  that  only  those  of  the 
18  fields  that  are  to  change  need  to  be  stated.  All  others 
will  remain  unchanged. 

250+1  The  TEC  corresponding  to  the  CNA  code  is  located  in  the  dictionary.  Array  ITQS  is 
initialized.  It  controls  modification  of  the  Total  Quantity  Supported  (TQS)  when  updating 
data  base  records. 

2500+1  Begin  search  of  data  base,  update  array  for  matching  IDs. 
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2500+2 

2504+1 

2502 
2506 
2506+1 

2503 

2517 

2507+1 


2501+1 

2521+4 

2523 

2508+1 

2508+2 

2514 

2514+2 

2512 

2520 

2520+2 

251 

251+1 

251+2 

251+4 

252 
252+1 
248 


248+4 


Testing  of  particular  IDs  for  a  match. 

If  a  match  is  found  for  the  current  data  base  ID,  MXX,  and  NXX  are  set  to  the  range  of 
years  on  the  control  card,  from  file  IDNARF  or  to  the  particular  year  for  which  the 
update  is  a  delete. 

The  numeric  equivalent  for  the  facility  is  noted  in  variable  L. 

Begin  update  for  the  number  of  years  requested. 

If  the  update  is  a  delete  request,  zero  the  appropriate  position  in  array  IRECA. 

'A  change  or  add  update  was  specified.  If  IRECA  (1,K,L)  is  zero,  an  addition  is  being  made 
to  the  data  base  and  IRECA  is  filled  at  that  location  from  the  update  array  MIXUP.  The 
call  to  MOVE  fills  in  the  particular  year. 

Array  ICHK  is  initialized  and  later  used  to  indicate  any  changes  that  are  made. 

All  location  in  array  FIXUP  are  checked  for  a  value  of  negative  1  which  indicates  no  update. 
All  non-negative  entries  represent  updates.  If  the  TQS  is  to  be  modified  (1=10)  it  is  done 
to  all  facilities  for  that  year.  Otherwise,  the  modification  is  for  the  facility  requested  and 
in  the  year  being  processed. 

Update  for  a  given  facility  in  a  given  year. 

Update  of  the  TQS  for  all  facilities  in  a  given  year  if  it  had  not  previously  been  updated 
(ITQS(K)=1). 

Note  that  an  update  was  made  to  the  Ith  element. 

The  15th  element  from  a  data  base  record  is  the  requirement  and  is  computed  from 
elements  10,  11,12,  and  14.  If  any  of  these  four  items  changed,  the  requirement  must  be 
recomputed. 

Check  for  update  affecting  the  requirement. 

Recompute  the  requirement  as  a  function  of  the  Program  (byte  5  from  the  ID). 

Recomputation  of  the  requirements  for  Programs  F,  H  or  L. 

Recomputation  of  the  requirements  for  Programs  other  than  F,  H  or  L. 

Since  decimal  points  are  assumed  in  all  data,  this  section  is  primarily  for  converting  to  the 
correct  value. 

Variable  ISETR  is  set  to  one  if  the  program  from  the  ID  is  an  A,  N  or  T. 

Shop  percentages  are  additionally  converted  to  the  number  of  hours  the  rework  activity 
normally  spends  in  the  shop. 

The  requirement  is  reconverted. 

If  the  norm  is  zero,  the  total  cost  is  zero. 

If  the  norm  is  non-zero,  the  total  cost  is  computed  as  a  function  of  Program. 

The  computed  total  cost  is  set. 

If  the  Program  is  not  an  F,  H  or  L,  the  requirement  is  rounded. 

Comparisons  now  begin.  They  are  on  two  levels.  The  first  is  for  the  ID  alone  and  the  second 
looks  at  the  facilities  given  that  the  IDs  matched.  Since  the  hit  parade  list  and  the  data 
base  records  are  both  in  ascending  order,  arithmetic  comparisons  can  be  made  on  the 
bytes.  Variable  IMOV  is  set  to  1 ,  2  or  3  for  the  hit  parade  ID,  being  respectively  less 
than,  equal  to  or  greater  than  the  data  base  ID.  IMOV  is  later  used  to  indicate  the  results 
of  the  comparison. 

Compare  the  bytes  of  the  IDs  from  the  hit  parade  and  the  data  base. 
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255+1  The  ID  are  equal.  If  both  the  hit  parade  list  and  data  base  file  have  been  exhausted,  jump  to 
400.  Otherwise  enter  the  DO  loop  for  making  entries  into  the  matrix  file  after  setting 
IMOV  to  2. 

254  The  hit  parade  ID  is  less  than  the  data  base  ID.  Print  an  error  message,  set  IMOV  to  1  and 

go  back  for  another  pass. 

253  The  data  base  ID  is  less  than  the  hit  parade  ID.  IMOV  is  set  to  3  and  the  DO  loop  is 

entered. 


246  This  DO  statement  ranges  over  the  years  requested  for  minimization.  Either  entries  are  to  be 

made  in  the  matrix  file  (IMOV=2)  or  adjustments  are  to  be  made  to  arrays  CMLA,  CAPB, 
and  SUMN  (IMOV=3).  This  is  immediately  check  at  location  246+1. 


246+2 

286 


The  arrays  NBAD  and  NMATCH  (see  the  next  paragraph  for  details  on  their  use)  are 
initialized  to  zero.  Array  NBASE  is  filled  with  data  regarding  which  and  how  many 
facilities  are  in  this  group  of  data  base  records. 

Three  work  arrays,  NBAD,  NBASE,  and  NMATCH,  are  set  according  to  the  way  the  data 
base  records  and  the  hit  parade  requests  compare.  Consecutive  locations  of  each  become 
numeric  integer  values  representing  each  of  the  12  facilities.  Given  an  ID,  for  example,  the 
data  base  might  contain  facilities  B,  D,  E,  F,  I,  and  J  with  facilities  B,  D,  F,  G,  and  I 
requested  in  the  hit  parade. 


1  2  3  4  5 

D.B.  B  D  E 

H.P.  B  D 

NBAD  (1)  =  7 
NBASE  (1)  =  5,10 
NMATCH  (1)  =  2, 4, 6, 9 


6  7  8  9  -  10  11  12 

F  I  J 

F  G  I 

NBAD  (13)  =  1 

NBASE  (13)  =  2 
NMATCH  (13)  =  4 


There  are  at  most  12  facilities  that  can  be  assigned  to  the  first  12  locations  in  each  of  the 
arrays.  Location  13  is  used  to  tell  how  many  (if  any)  consecutive  locations  are  filled. 

297+5  Since  arrays  IDNA  and  IRECA  are  initialized  to  zero  and  then  altered  according  to  the  hit 
parade  requests  and  the  data  base  records,  tests  are  made  against  zero  to  determine  the 
entries  in  arrays  NBAD,  NBASE,  and  NMATCH. 

265  The  requirements  in  all  data  base  records  for  which  there  was  a  corresponding  hit  parade 

request  are  summed. 

257+1  If  the  sum  of  the  requirements  is  zero,  nothing  needs  to  be  written  into  the  matrix  file.  This 
is  insured  by  setting  NMATCH  (13)  to  zero.  (There  is  no  need  to  move  the  elements  from 
NMATCH  to  NBASE.  If  the  sum  of  the  requirements  is  zero,  each  individual  requirement 
is  zero.  All  adjustments  made  from  NBASE  are  a  function  of  the  requirement  and,  since 
each  requirement  is  zero,  the  resulting  adjustment  is  zero.) 

268  The  sum  of  the  requirement  is  positive.  Array  LASTID  is  given  a  year  with  the  call  to 

MOVE,  and  the  ID  in  array  LASTID  along  with  the  requirements  sum  is  saved  in  the  next 
locations  of  arrays  IDSAVE  and  REQID  respectively.  These  items  are  the  row  name  and 
right-hand  side  value  to  be  entered  into  the  matrix  file  at  a  later  time. 

249  Error  messages  are  printed  as  a  result  of  the  non-zero  entries  in  array  NBAD. 

272  Adjustments  and  accumulations  are  made  as  a  result  of  the  non-zero  entries  in  array  NBASE. 

The  total  capacity  originally  stored  in  array  CAPB  and  the  current  manning  levels 
originally  stored  in  array  CMLA  are  adjusted  by  the  shop  workloads  computed  in  variable 
PROD.  The  final  values  in  CAPB  and  CMLA  are  the  remaining  capacities  and  remaining 
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300 

300+4 

300+5 

305 

301+1 

302+1 

302+2 

307+1 

320 

320+1 

324 


men  that  may  be  used  in  solving  the  problem.  Given  the  unused  space  and  men,  the  L.P. 
considers  additional  shift  and  hire/layoff  criteria  respectively.  Additional  quantities  are 
accumulated  in  array  SUMN  as  a  function  of  the  year,  facility,  fund  source  (determined  at 
location  278),  and  program  (determined  at  location  274).  Array  SUMN  is  passed  to  the 
Report  generator  where  base  workload  (non-L.P.  data)  is  also  accounted  for. 

Entries  into  the  matrix  file  are  made  as  a  result  of  the  non-zero  entries  in  array  NMATCH. 

If  the  total  cost  value  for  the  ID  NARF  in  the  year  being  considered  is  zero,  no  matrix 
entries  are  made  for  that  ID  NARF  in  that  year. 

1  If  all  shop  values  for  that  ID  NARF  in  the  year  being  considered  are  zero,  no  matrix  entries 
are  made  for  that  ID  NARF  in  that  year. 

There  is  a  non-zero  total  cost  and  at  least  one  non-zero  shop  value.  A  value  of  ‘1’  is  entered 
into  block  G. 

A  value  for  the  total  cost  from  the  data  base  is  written  into  the  matrix  at  block  F. 

If  the  facility  is  not  a  NARF  (A-G),  then  no  more  entries  are  made  into  the  matrix  for  the 
column  name  given  in  block  E. 

An  entry  is  made  into  the  matrix  at  block  H  for  each  non-zero  shop  entry. 

The  entries  made  at  block  H  are  also  entered  into  block  I  if  manning  is  at  the  shop  level 
(INOS=2).  When  manning  is  at  the  NARF  level  (INOS=l)  only  one  entry  is  made  at  block 
I.  It  is  the  sum  of  all  entries  made  at  block  H. 

There  are  two  methods  of  placing  limitations  on  the  assignment 'of  work  by  the  L.P.  The 
first  is  hard  bounds  (IBOP=l)  computed  from  the  individual  requirement  at  an  ID  NARF 
and  the  sum  of  all  requirements  for  the  ID.  The  second  uses  additional  rows  called 
parametric  equations  to  constrain  the  assignments.  Values  for  the  ID  NARF  column  are 
rows  that  have  the  same  ID  (see  190). 

When  bounds  are  produced  (IBOP=l)  the  column  name  (ID  NARF),  the  requirement 
currently  assigned  to  it  and  the  sum  of  all  requirements  assigned  for  the  ID  are  saved  in 
arrays  IBOUND  and  BOUNDS.  The  bounds  are  computed  during  creation  of  the  bounds 
section  of  the  matrix  file.  The  reason  for  not  computing  the  bounds  at  this  point  is  that 
more  than  one  set  may  be  created  using  different  percent  variations  and  resulting  in 
different  ranges  over  which  assignments  are  made  at  a  facility. 

When  parametric  equations  are  used,  a  factor  of  two  times  the  number  of  columns  having 
the  given  ID  are  made.  That  is,  if  an  ID  is  being  entered  into  the  matrix  at  three  facilities, 
six  additional  values  will  be  entered  for  each  ID  NARF  column  and,  since  there  are  three 
columns,  a  total  of  18  additional  entries  will  be  made.  If  n  facilities  are  used  for  a  given 
ID,  then  2  x  n2  additional  values  are  written  into  the  matrix  for  the  entire  ID  when 
parametric  equations  are  used. 

The  entries  are,  like  hard  bound,  based  on  a  percent  variation.  However,  unlike  bounds 
which  place  a  physical  limitation  on  individual  requirement  at  a  particular  facility, 
parametric  equations  specify  a  percentage  range  of  the  sum  of  all  requirements.  Suppose 
that  100  is  the  sum  of  all  requirements  for  a  particular  ID,  30  is  the  assignment  at  a 
particular  facility  and  a  10  percent  variation  will  be  allowed. 

30  ±  .10  x  100  =  20  and  40. 

Since  the  parametric  method  allows  the  user  to  modify  the  sum  of  all  requirements 
(right-hand  side)  assume  it  is  increased  from  100  to  200.  The  net  result  is  an  increase 
from  30  to  60  assigned  to  the  particular  facility.  Then,  again  given  the  10  percent 
variation 


60  ±  .10  x  200  =  40  and  80. 


-30- 


The  values  entered  into  the  matrix  are  computed  and  put  into  array  BOUNDA  prior  to  entry 
into  the  matrix  file.  Consult  the  appendix  of  the  user’s  manual  for  a  detailed  description 
of  the  values. 

400  Shift  control  columns  in  block  J  and  each  associated  row  value  are  written  into  the  matrix 

file  from  location  400  through  location  415.  Column  names  for  block  J  are  identical  to 
row  names  in  block  C  except  for  first  character.  The  number  of  columns  is  189  times  the 
number  of  years  requested  for  optimization.  The  four-byte  code  has  a  shift  identification 
(U,  V  or  W),  Facility  (A  to  G),  Shop  (1  to  9),  and  Year  (IYA  to  IYB).  The  total  number 
<  of  card  image  records  produced  is  630  (10  x  9  x  7)  times  the  number  of  years  requested. 
That  is,  blocks  Ky,  Ky,  K^,  L,  M,  N,  O,  P,  Q,  and  R  each  contain  63  records. 

400+3  This  is  the  first  of  10  write  statements  for  the  10  blocks  of  data.  Again,  all  value  associated 
with  a  particular  column  must  be  entered  into  the  matrix  file  before  a  new  column  is 
identified.  The  columns  are  entered  as  shown. 

Block  Entries 


Column  Row  Value 


JU  A  Kjj 

CF  L 

Cs  M 

Dm  N 

Jy  Dm  Q ' 

Cp  o 

cx  p 

A  Ky 

Jw  Cp  R 

A  Kw 


The  table  is  repeated  63,  126,  189,  252  or  315  times  depending  on  the  number  of  years  to 
be  optimized.  Block  Ky  is  the  incremental  cost  for  the  second  shift  as  read  from  user 
input  file  IDDI  and  adjusted  by  the  efficiency  factor  for  all  second  shift  operations  as 
given  on  the  control  cards  from  file  IDNARF.  Block  Ky  is  similarly  input  and  adjusted 
for  third  shift  operations.  And  block  K\y  is  input  with  no  adjustment  for  any  post  third 
shift  operations. 

Block  L  is  the  negative  of  the  efficiency  factor  for  second  shift.  All  63  entries  contain  the 
same  values.  Block  O  is  similar  to  block  L  but  designates  third  shift.  Blocks  M,  P,  and  Q 
are  fixed  at  +1,  +1,  and  -1  respectively.  Blocks  N  and  Q  are  the  difference  between  1  and 
the  percentage  for  the  respective  shift  efficiency  factor.  Within  a  given  block  all  values  are 
identical. 

415+1  Manpower  control  columns  are  names  in  block  S,.  They  are  similar  in  composition  to  the 
shift  columns.  However,  manning  is  not  likely  to  be  modified  at  the  shop  level.  But  when 
it  is,  nine  entries  are  made  for  each  shop  in  a  given  NARF  with  byte  position  three 
assuming  the  values  1  through  9.  Manning  at  the  NARF  level  is  more  likely.  That  is,  men 
are  hired  or  layed  off  from  a  NARF,  not  from  the  shop  within  the  NARF.  In  this  case, 
one  entry  is  made  for  the  NARF  (all  shops).  The  shop  designator  in  byte  position  three  is 
set  to  zero.  The  two  possibilities  are  a  function  of  the  request  on  the  user  control  card.  If 
it  is  assumed  that  manning  is  at  the  NARF  level  and  byte  position  three  is  fixed  at  zero, 
then  entries  at  blocks  T,  U,  V,  W,  X,  Y,  and  Z  will  be  in  multiples  of  seven  rather  than 
63  as  in  the  shift  blocks.  That  is  blocks  T jj ,  Tp,  T (; ,  ,  X,  and  Z  will  each  have  seven 

entries  for  a  given  year.  Blocks  U,  V,  W,  and  Y  will  have  7,  14,  21,  28  or  35  entries  for 
that  year  depending  on  two  items.  The  first  is  the  number  of  years  being  optimized.  The 
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second  is  the  number  of  years  remaining,  relative  to  the  year  being  entered.  An  example: 
Years  2  through  4  on  the  data  base  are  to  be  processed.  That  is,  variable  IYA  and  IYB  are 
2  and  4  respectively.  Assume  that  year  3  is  being  entered  into  the  matrix  file.  Then  14 
entries  are  made  for  each  of  block  U,  V,  W,  and  Y.  The  extra  seven  entries  carries  the 
manpower  changes  made  in  year  3  to  year  4.  That  is,  people  are  not  hired  or  layed  off  for 
only  one  year.  What  happens  to  them  in  one  year  must  be  considered  in  all  succeeding 
years. 

422—1  Hourly  NARF  shop  costs  for  hire  and  layoff  are  temporarily  stored  in  array  HCOST. 

422+1  '  Variable  M  is  set  to  the  particular  shop  or  to  zero  depending  on  whether  manning  is  at  the 

shop  or  NARF  level. 

422+6  When  manning  is  at  the  NARF  level,  the  cost  over  the  nine  shops  is  averaged  in  array 
HCOST. 

430  Four  types  of  columns  are  identified:  initial  (Phase  I)  hire  and  layoff  (G  and  K)  and 

post-initial  hire  and  layoff  (H  and  L).  As  usual,  all  data  values  for  a  given  column  must  be 
entered  into  the  file  before  a  new  column  is  identified.  The  following  table  shows  all 
entries  for  a  particular  NARF  in  a  particular  year  X  when  Y  is  the  last  year  of  the  total 
years  requested.  Refer  to  figure  2c. 


Block  Entries 

Column 

Row 

Value 

Sh 

A 

Tri 

DM(X) 

U 

Dm  00 

u 

SL 

A 

tl 

Dm(X) 

V 

Dm  00 

V 

Sg 

A 

tg 

°n 

X 

Dm(X) 

w 

dm  00 

w 

SK 

A 

Tk 

DN 

z 

Dm(x) 

Y 

dm  00 

Y 

If  only  one  year  had  been  requested  then  X  equals  Y.  Again,  assuming  that  manning  is  by 
NARF,  the  table  is  repeated  7,  14,  21,  28  or  35  times  depending  on  the  number  of  years 
requested. 

All  values  entered  in  blocks  U  thru  Z  are  either  positive  one  or  negative  one.  All  values  in 
block  T  were  previously  read  from  the  IDDI  file. 

500  Following  completion  of  all  values  entered  by  column  and  row,  the  right-hand  side  (blocks 

AA  thru  FF)  is  generated.  Block  AA  is  much  like  a  column  name  and  is  called  ‘RIGHT.’ 
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501 

501+1 

507+1 

507+4 

511+1 

518+1 

518+5 

518+7 

518+9 

526 

535+1 

542 


This  name  is  used  exclusively  unless  parametric  equations  have  been  generated.  Then  and 
only  then  will  block  A  A  contain  a  user  supplied  name(s)  other  than  ‘RIGHT.’  The  new 
names  represent  from  one  to  five  different  sets  of  right-hand  side  parametric  changes  to 
the  values  entered  under  the  name  ‘RIGHT.’  Only  one  set  is  used  during  execution  of  the 
linear  program. 

The  right-hand  side  section  of  the  matrix  file  is  identified. 

The  right-hand  side  for  the  ID  row  (block  B)  is  written  into  the  matrix  file.  The  row  names 
and  right-hand  side  values  have  been  saved  in  arrays  IDSAVE  and  REQID  respectively 
'  during  data  base  processing. 

Written  into  the  matrix  file  for  each  shop  in  each  NARF  and  in  each  year  reqeusted  is  the 
adjusted  capacity  (block  BB)  for  the  first  shift.  When  positive,  this  number  gives  the 
number  of  hours  of  work  that  may  be  assigned  to  first  shift  by  the  linear  program. 
Assignments  beyond  this  number  are  automatically  assigned  to  second,  third,  and  post- 
third  shift  and  in  that  order.  When  negative,  the  first  shift  has  already  been  filled  with 
assignments  not  being  subjected  to  optimization  in  the  linear  program.  The  absolute  value 
of  the  number  is  the  minimum  workload  that  has  already  been  assigned  to  additional 
shifts.  All  assignments  by  the  linear  program  will  begin  in  the  shift  that  has  some 
remaining  capacity. 

Write  the  first  shift  adjusted  capacity  into  the  matrix  file  of  block  CC. 

Compute  and  write  into  the  matrix  file  at  block  DD  the  percentage  of  the  first  shift  total 
capacity  that  will  be  allowed  for  the  second  and  third  shifts. 

Manning  values  are  entered  at  blocks  EE  and  FF.  The  current  manning  level  in  hours  was 
adjusted  by  the  same  quantities  used  to  adjust  capacities.  Array  CMLA  is  the  quantity  of 
men  in  manhours  not  already  used  by  those  workload  assignments  that  are  not  to  be 
optimized  by  the  linear  program.  Thus,  the  remaining  manhours  in  array  CMLA  will  be 
used  by  the  linear  program  as  assignments  are  made.  The  difference  between  the  current 
manning  levels  and  the  manning  required  as  a  result  of  all  assignments  gives  hire/layoff 
information. 

Compute  the  manpower  variation  for  hiring  and  for  laying  off  that  will  be  allowed  before 
Phase  2  costs  are  incurred. 

Compute  the  shop  variable  KK  used  in  Phase  2  identifying  the  row  name. 

Recompute  the  right-hand  side  values  in  array  SUMR  when  manning  is  being  done  at  the 
facility  level. 

Enter  the  manning  figures  into  blocks  EE  (adjusted  manning  level)  and  FF  (initial  Phase  1 
range  of  manning  changes). 

If  parametric  equations  were  generated  (IBOP=2),  additional  right-hand  side  entries  may  be 
made.  They  represent  alterations  to  be  made  to  the  right-hand  side  values  which  were  just 
established.  These  entries  are  a  function  of  the  users’  requests  stored  in  arrays  IRIGHT 
and  FRIGHT.  This  section  will  not  be  generated  when  bounds  have  been  requested. 

The  final  section  is  for  bounds.  Bounds  are  the  limits  on  the  range  of  quantities  that  may  be 
assigned  by  the  linear  program.  That  is,  if  30  is  the  assignment  before  requesting 
optimization  of  a  particular  ID  NARF,  then  20  and  40  could  be  the  lower  and  upper 
bounds  respectively.  The  bounds  are  computed  from  the  current  assignment.  From  that 
point  on,  only  the  bounds  have  any  meaning  and  the  current  assignment  is  ignored.  Data 
for  the  bounds  were  saved  in  arrays  IBOUND,  BOUNDS,  IBNDX,  BNDY,  IBNDA,  BNDY, 
and  IBNDC. 

If  the  number  of  pairs  of  bounds  JBDS  or  the  number  of  sets  of  bounds  NBS  is  zero,  no 
bounds  are  to  be  generated. 
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542+2 

543+1 

543+2 

543+3 

543+5 

548 

548+1 

548+2 

550+4 

555+1 

558 

566+1 

569 

800 

808-1 


Identify  the  beginning  of  the  bounds  section. 

NBS  sets  of  bounds  will  be  written  into  the  matrix. 

JBDS  paris  of  bounds  (lower  and  upper)  will  be  written  into  each  set. 

Isolate  the  program  ITEMR  and  the  year  ITEMP  for  the  column  the  particular  bound 
represents. 

Determine  the  numeric  value  for  the  year. 

Begin  the  computation  for  the  lower  and  upper  bound  values. 

J 

Are  there  any  bound  exceptions  to  be  checked  in  arrays  IBNDA,  IBNDB,  and  IBNDC. 

Sequentially  search  arrays  IBNDC  and  IBNDA  for  (1)  the  corresponding  set  the  bound 
exception  represents,  (2)  whether  the  exception  is  for  the  lower  only,  upper  only  or  both 
bounds  and  (3)  the  column  to  which  the  exception  applies. 

Set  BVAL  equal  to  the  value  of  the  bound  if  a  bound  exception  was  found. 

No  bound  exceptions  were  requested  or  none  existed  for  the  particular  column  upon  which 
the  bounds  are  being  placed.  Compute  in  BVAL  the  bound  as  determined  by  the  standard 
percent  variation  contained  in  array  BNDB. 

If  the  program  is  not  F,  H  or  L,  the  value  of  the  bound  is  truncated  to  an  integer. 

The  bound  is  written  into  the  matrix. 

The  terminal  record  is  written  into  the  matrix. 

Much  of  the  data  and  information  produced  by  the  matrix  generator  is  to  be  used  and/or 
reported  in  the  report  generator.  That  program  takes  the  linear  programming  output  and 
the  data  written  onto  tape  here  and  produces  meaningful  results. 
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CHAPTER  IV 


REPORT  GENERATOR 


INTRODUCTION 

Execution  of  the  Linear  Program  (L.P.)  and  the  Report  Generator  Program  is  the  final  step  in 
the  optimization  problem.  The  matrix  data  set  created  by  the  Matrix  Generator  Program  is  fed  into 
the  L.P.  and' an  optimal  solution  is  found.  This  result  is  saved  as  a  direct  access  data  set  in 
“Communication  Format.”  The  data  is  then  accessible  through  a  routine  call  READCOMM. 

The  reports  are  composed  of  data  from  both  the  solution  produced  by  the  L.P.  and  the  Base 
information.  Base  information  is  all  the  data  that  is  not  put  through  the  L.P.  for  optimization.  It  is 
the  unmodified  quantities  that  must  be  included  in  order  to  produce  complete  and  thorough 
reports. 

The  individual  reports  will  sometimes  contain  only  L.P.  results.  Otherwise,  both  Base  and  L.P. 
and  their  aggregates  are  included.  Samples  of  all  reports  can  be  found  in  the  User’s  Guide.  Only  a 
discussion  of  the  program  code  is  presented  here. 

DEFINITIONS  OF  ARRAYS  AND  VARIABLES 

COMMON/DICT/NDR,  IDICT  (2,400) 

NDR  Number  of  dictionary  records. 

IDICT  (2,400)  Dictionary  entries  containing  the  TEC  and  its  CNA-designated  code.  Both  represent  the 
T/M/S  contained  in  array  JDICT. 

Arrays,  Integer 

ICTU  (3)  The  word  ‘CONTINUED’  is  put  into  this  array  when  a  report  extends  beyond  one  page. 
Otherwise,  it  is  blank. 

IDATE  (5)  Contains  the  date  as  read  from  the  first  card  of  an  L.P.  run. 

IFUNDX  (8)  Left-justified  and  blank  filled  code  for  each  of  the  eight  possible  fund  sources. 

IFY  (5)  Filled  with  the  five  actual  years  that  an  L.P.  run  would  represent  (e.g.,  74,  75,  76,  77,  78). 

INARFX  (12)  Left-justified  and  blank  filled  code  for  each  of  the  12  rework  facilities  (A  thru  L). 

IPROGX  (10)  Left-justified  and  blank  filled  code  for  each  of  the  10  programs. 

IRNN  (13)  Contains  the  report  header  as  read  from  the  first  card  of  an  L.P.  run.  This  name  is  written 
on  every  report. 

ISHOPX  (10)  Left-justified  and  blank  filled  code  for  each  of  the  nine  shops  within  a  NARF.  The  tenth 
location  contains  a  zero. 

ITEC  (7)  Temporary  locations  for  containing  the  ID  previously  considered.  Used  for  comparison  with 
ITED. 

ITED  (8)  Contains  the  ID  and  facility  currently  being  considered.  Compared  with  ITEC  to  identify 
consecutive  equivalent  IDs. 

IYEARX  (5)  Left-justified  and  blank  filled  code  for  the  one  thru  five  years  that  may  have  been 
requested. 
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JCTU  (3)  Data  array  containing  the  work  ‘CONTINUED’. 

JDENT  (26)  Various  constants  upon  which  tests  are  made. 

JDICT  (4,400)  Array  for  holding  the  type/model/series  as  given  in  the  dictionary  file. 

Arrays,  Real*8 

BAJ  (2,9,7)  Initially  the  manpower  adjustment  from  years  prior  to  the  report  year.  Finally  used  as 
bounds  away  from  the  new  Current  Manning  Level  (DML)  to  indicate  Phase  I  hire/layoff  limits. 

BASE  (10'8)  Base  workload  for  all  shifts.  Sum  of  BSWKLD  and  S23BW. 

BSWKLD  (9,7)  The  first  shift  base  workload.  Computed  as  the  difference  between  the  total  capacity 
of  a  shop  (TOTCAP)  and  the  adjusted  capacity  (CAPB). 

CAPB  (9,7,5)  Adjusted  capacity.  Work  space  available  after  all  workloads  NOT  subject  to  L.P.  optimiz¬ 
ation  have  been  accounted  for.  A  negative  CAPB  indicates  additional  shifts  are  needed  for  all  the 
base  workload. 

CNL  (9,7)  Current  manning  level. 

CVA  (14)  Cost/volume  adjustment. 

DML  (10,8)  New  current  manning  level  following  the  hire/layoff  adjustments  from  all  previous  year 
hire/layoffs. 

DOP  (13)  Hollerith  data  for  the  12  facilities  plus  a  total. 

DOPCS  (7,5)  Total  workload  for  a  given  NARF  in  a  given  year. 

DOPGT  (12,5)  Total  dollars  for  a  given  facility  in  a  given  year. 

FACTOR  (5)  Second  shift  efficiency  factor  by  which  the  second  shift  capacity  is  multiplied  to 
determine  the  maximum  shift  workload. 

FACT3  (5)  Third  shift  efficiency  factor  by  which  the  third  shift  capacity  is  multiplied  to  determine 
the  maximum  third  shift  workload. 

FPN  (9,11,14)  L.P.  workload  assignments  by  Fund  (B),  Program  (10),  and  NARF  (12).  The  extra 
dimensions  provide  for  totals. 

FUNDN  (9)  Hollerith  data  describing  the  eight  individual  fund  sources  plus  an  entry  for  all  fund 
sources. 

GCOST  (9,12)  Phase  1  yearly  hiring  cost  by  shop. 

GDOL  (9,7)  Phase  1  yearly  dollars  required  for  hiring  by  shop. 

GSN  (9,12)  Phase  1  yearly  men  to  be  hired  by  shop. 

HCOST  (9,7)  Phase  2  yearly  hiring  cost  by  shop. 

HDOL  (9,7)  Phase  2  yearly  dollars  required  for  hiring  by  shop. 

HPY  (7,5)  Hours  per  year  for  each  NARF. 

HSN  (9,7)  Phase  2  yearly  men  to  be  hired  by  shop. 

HSUM  (14)  Phase  1  and  Phase  2  yearly  dollars  required  for  hiring  by  NARF. 

KCOST  (9,12)  Phase  1  yearly  layoff  cost  by  shop. 

KDOL  (9,7)  Phase  1  yearly  dollars  required  for  layoff  by  shop. 

KSN  (9,12)  Phase  1  yearly  men  to  be  laid  off  by  shop. 

LCOST  (9,7)  Phase  2  yearly  layoff  cost. 

LDOL  (9,7)  Phase  2  yearly  dollars  required  for  layoff  by  shop. 

LPWKLD  (10,8)  L.P.  workload. 
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LSN  (9,7)  Phase  2  yearly  men  to  be  laid  off  by  shop. 

LSUM  (14)  Phase  1  and  Phase  2  yearly  dollars  required  for  layoff  by  NARF. 

MEN  (10)  Number  of  men  required  for  the  total  workload  (TWKLD). 

NARFN  (2,14)  Hollerith  data  containing  12  facility  names  plus  total  data. 

PB  (9,200)  Production  bounds  array.  Up  to  2000  ID  NARF  selected  column  data  from  the  L.P. 
output  in  any  given  year. 

PHPY  (5)  Pay  hours  per  year.  Currently  not  used  in  the  program. 

PROGN  (10)  Hollerith  data  for  the  ten  program  names. 

PROID  (13)  Temporary  locations  for  the  L.P.  workloads  assigned  to  the  various  facilities  for  a  given 
ID. 

PUTIL  (10,8)  Percent  utilized.  Ratio  of  space  used  to  space  available  based  on  the  first  shift. 

RC  (9,7 ,4,4)  Reduced  cost.  Hire/layoff  column  data  by  NARF  (9),  Shop  (7),  Phase  (4),  and  selected 
data  (4). 

RR  (6,1000)  Rework  requirements.  Up  to  1000  ID  selected  row  data  from  the  L.P.  output  in  any 
given  year. 

SHOPN  (9)  Hollerith  data  for  the  nine  shops. 

SHPNRF  (2)  Temporary  location  which  holds  either  the  shop  name  or  the  NARF  name  just  prior  to 
printing. 

SLACK  (9,7)  Slack.  Difference  between  the  RHS  and  the  assigned  workload.  Represent  the  unused 
first  shift  work  space. 

SP  (9,7 ,5,4)  Shadow  price.  Row  data  by  NARF  (9),  Shop  (7),  Shops  and  Manpower  (5),  and  selected 
data  (4). 

SUBT  (12)  Temporary  location  for  computed  subtotals  just  prior  to  printing  the  Workload  Variance 
Report. 

SUMN  (9,11,14,5)  Base  workload  by  Fund  (8),  Program  (10),  NARF  (12),  and  Year  (5).  The  extra 
dimensions  provide  for  totals. 

S23BW  (9)  Computed  base  workload  assigned  to  second  and  third  shifts. 

S1WKLD  (9,7)  First  shift  L.P.  workload.  By  shop  and  NARF. 

TOTCAP  (10,8,5)  Total  capacity  by  Shop  (9),  NARF  (7),  and  Year  (5).  Extra  dimensions  provide  for 
totals. 

TOTL  (9,11,14)  Summed  base  and  L.P.  workloads  by  Fund  (8),  Program  (10),  and  NARF  (12).  Extra 
dimensions  provide  for  totals. 

TWKLD  (10,8)  Total  workload  by  Shop  (9)  and  NARF  (7).  Extra  dimensions  provide  for  totals. 

U  (9,7)  Workload  assigned  to  the  second  shift  by  the  L.P. 

UBND  (9,7)  Total  capacity  of  the  second  shift  by  shop  and  NARF. 

UBND3  (9,7)  Total  capacity  of  the  third  shift  by  shop  and  NARF. 

USUM  (14)  Incremental  accumulated  L.P.  second  shift  costs  by  NARF. 

V  (9,7)  Workload  assigned  to  the  third  shift  by  the  L.P. 

VALUES  (12)  Area  where  the  L.P.  values  are  temporarily  stored.  That  is,  elements  of  inputed  vectors. 

VSUM  (14)  Incremental  accumulated  L.P.  third  shift  costs  by  NARF. 

W  (9,7)  Workload  assigned  to  post-third  shift  by  the  L.P. 

WSUM  (14)  Incremental  accumulated  L.P.  post-third  shift  costs  by  NARF. 
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Variables,  Real*8 


ACOST  Adjustment  cost-dollars  resulting  from  AIIC. 

AIIC  Manning  adjustment  included  in  cost-(l)  Phase  2  only  or  (2)  both  Phase  1  and  Phase  2. 
AIRCFT  Data  location  with  the  word  AIRCRAFT. 

ANAME  Dummy  parameter  used  in  the  CALL  ARRAY  statements. 

BLANKD  Eight  hollerith  blanks. 

TAIIC  Total  for  all  AIIC  above. 

TCOST  Total  for  all  ACOST  above. 

TEMP,  TEMQ,  TEMR  Temporary  localized  variables. 

TGPA  Gross  personnel  adjustment. 

TOTAL  Data  location  with  the  word  TOTAL. 

TMA  Total  manning  adjustment-computed  value  for  the  Workload  Variance  Report. 

INPA  Net  personnel  adjustment. 

TSUM  Temporary  location  for  totals  in  DOP  and  Program  Cost  Reports. 

SLML  Percentage  of  CML  used  to  compute  Phase  1  layoff  bound. 

XUML  Percentage  of  CML  used  to  compute  Phase  1  hire  bound. 

Variables,  Integer 

IAY  The  year  (eg.  75)  in  hollerith  represented  by  IYA. 

IBOP  1  or  2  for  bounds  1  or  bounds  2  option  respectively. 

IFILE  Logical  units  where  the  L.P.  solution  is  stored. 

INOS  1  or  2  for  manning  by  NARF  or  shop  resectively. 

IRQQ  Blank  or  non-blank  for  non-production  or  production  of  Group  2  reports  respectively. 
IYA  Integer  for  the  first  year  to  be  reported.  (1  <  IYA  <  5). 

IYB  Integer  for  the  last  year  to  be  reported.  (IYA  <  IYB  <  5). 

K  Primarily  used  to  represent  the  year  of  the  reports  being  generated. 

LUQ  Logical  unit  where  the  dictionary  is  stored. 

LUU  Logical  unit  where  the  other  data  (non-L.P.)  is  stored. 

NFACIL  Number  of  Facilities  (12). 

NFUNDS  Number  of  Funds  (8). 

NNARFS  Number  of  NARFs  (7)  (NNARFS  is  a  subset  of  NFACIL). 

NPROGS  Number  of  Programs  (10). 

NSHOPS  Number  of  Shops  (9). 

NYEARS  Number  of  Years  (5). 

All  remaining  integer  variables  take  on  temporary  values  and  are  localized  in  their  use. 
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L.P.  OUTPUT  FORMAT 


The  output  from  the  L.P.  is  dependent  upon  the  requests  included  in  the  problem.  SOLUTION 
must  always  be  included  in  order  to  generate  the  first  set  of  reports.  RANGE  must  be  included  if 
and  only  if  the  second  set  of  reports  is  ever  to  be  generated  from  this  particular  L.P.  output.  The 
results  are  eight  blocks  of  data  as  follows: 


Group 

Array 

Comment 

SOLUTION 

—  ignored  by  R.G. 

SOLUTION 

RSECTION 

—  rows 

CSECTION 

—  columns 

RANGE 

—  ignored  by  R.G. 

RANGES 

SECTION  1 

—  rows  at  limit  level 

SECTION2 

—  columns  at  limit  level 

SECTION3 

—  rows  at  intermediate  level 

SECTION4 

—  columns  at  intermediate  level 

Only  those  called  SOLUTION  are  used  in  producing  the  first  set  of  reports.  Both  SOLUTION 
and  RANGES  are  used  for  the  second  set.  The  second  set  may  not  be  generated  without  the  first. 


Arrays  named  SOLUTION  and  RANGE  are  header  information  for  each  of  the  two  groups 
and  are  ignored  by  the  report  generator.  RSECTION,  SECTION1,  and  SECTION3  contain  row 
data.  CSECTION,  SECTION2,  and  SECTION4  contain  column  data.  As  each  array  is  passed 
through,  the  column  (or  row)  vectors  are  encountered  in  the  same  order  in  which  they  were 
produced  in  the  matrix  generator.  However,  a  column  (and  row)  is  mentioned  only  once  in  each  of 
the  two  groups.  That  is,  if  a  row  is  in  SECTION  1,  it  will  not  appear  in  SECTION3.  For  example, 
given  that  rows  and  columns  are  entered  into  the  matrix  in  the  order  shown  below, 


Rows 

Columns 

AA 

A1 

BB 

A2 

CC 

B1 

B2 

B3 

Cl 

C2 

encountered  in 

the  L.P. 

the  row  and  column  vectors  might  be  encountered  in  the  L.P.  output  as  follows 


Arrays 

SOLUTION 

RSECTION 


Vectors 

AA 

BB 

CC 

A1 

A2 

B1 

B2 

B3 

Cl 

C2 


Comment 

ignored 

rows 
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CSECTION 


columns 


Arrays 

Vectors 

Comment 

RANGE 

ignored 

SECTION  1 

BB 

rows 

SECTION2 

A2 

columns 

B1 

B3 

SECTION3 

AA 

rows 

CC 

SECTION4 

A1 

columns 

B2 

Cl 

C2 

The  appearance  of  the  vector  names  in  RSECTION  and  CSECTION  is  fixed.  Their  appearance 
in  the  other  sections  is  a  function  of  the  solution  to  the  problem. 

Each  vector  is  further  subdivided  into  elements  which  provide  the  actual  answers  or  data  to  be 
used  in  the  reports.  Each  element  belongs  to  a  vector  and  each  vector  belongs  to  an  array.  The 
number  of  elements  in  a  vector  depends  on  which  array  the  vector  belongs  to.  Each  element  of  all 
vectors  in  a  given  array  are  named  and  described  below. 


Element 

number 

Name 

Description 

RSECTION 

1 

* 

ROW  name 

2 

STATUS 

Ignored 

3 

ACTIVITY 

Value  associated  with  ROW  name 

4 

SLACK 

Difference  between  RHS  and  ROW  ACTIVITY 

5 

LLIMIT 

The  algebraically  lowest  value  that  the  ROW  ACTIVITY  can 
take  and  remain  feasible 

6 

ULIMIT 

The  algebraically  highest  value  that  the  ROW  ACTIVITY  can 
take  and  remain  feasible 

7 

DUALACT 

Ignored 

8 

NUMBER 

Ignored 

CSECTION 

1 

* 

COLUMN 

2 

STATUS 

Ignored 

3 

ACTIVITY 

Value  associated  with  COLUMN  name 

4 

ICOST 

Inputed  cost  of  COLUMN  name 

5 

LLIMIT 

The  algebraically  lowest  value  that  the  COLUMN  ACTIVITY 
can  take  and  remain  feasible 

6 

ULIMIT 

The  algebraically  highest  value  that  the  COLUMN  ACTIVITY 
can  take  and  remain  feasible 

7 

RCOST 

Reduced  cost— rate  of  increase  in  the  objective  function  per 
rate  of  increase  in  the  COLUMN  name 

8 

NUMBER 

Ignored 
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Element 

number  Name 

Description 

SECTION  1  and  SECTION3 

1  * 

ROW  name 

2 

LOACT1 

Level  to  which  the  ROW  ACTIVITY  may  be  decreased  at  a 
cost  per  unit  of  decrease  given  by  the  unit  cost. 

3 

UNCOST1 

Change  in  the  objective  function  per  unit  of  decrease  in  the 
ROW  ACTIVITY 

4  , 

LIMPROC1 

Ignored 

5 

ATI 

Ignored 

6 

UPACT2 

Level  to  which  the  ROW  ACTIVITY  may  be  increased  at  a 
cost  per  unit  of  increase  given  by  the  unit  cost 

7 

UNCOST2 

Change  in  the  objective  function  per  unit  of  increase  in 
the  ROW  ACTIVITY 

8 

LIMPROC2 

Ignored 

9 

AT2 

Ignored 

SECTION2  and  SECTION  4 

1 

* 

COLUMN  name 

2 

LOACT1 

Lower  bound  on  shadow  price 

3 

UNCOST 1 

Reduced  cost-the  change  in  the  objective  function  per  unit 
of  decrease  in  activity  level  down  taLOACTl 

4 

UPCOST1 

Ignored 

5 

LIMPROC1 

Ignored 

6 

ATI 

Ignored 

7 

UPACT2 

Upper  bound  on  shadow  price 

8 

UNCOST2 

Reduced  cost— the  change  in  the  objective  function  per  unit 
of  increase  in  activity  level  up  to  UPACT2 

9 

LOCOST2 

Ignored 

10 

LIMPROC2 

Ignored 

11 

AT2 

Ignored 

RETRIEVING  L.P.  OUTPUT 

The  task  is  to  read  the  data  produced  in  the  L.P.  solution  and  put  it  into  the  proper  data 
array  for  the  report  generation.  The  reading  is  simplified  by  a  routine  called  READCOMM  which  is 
specifically  designed  for  reading  data  produced  in  the  format  of  the  L.P.  solution.  Three  entry 
points  in  READCOMM  are  used.  Their  function  and  parameters  are  described  below. 

CALL  POSITN  (IFILE JNDICJVARY).  Position  logical  unit  IFILE  for  inputing  the  data  in  Array 
NARY.  INDIC  is  returned  and  ignored. 

CALL  ARRAY  (IFILE ,INDIC,ANAME).  Prepare  the  previously  positioned  array  for  reading.  The 
array  name  ANAME  and  an  indicator  INDIC  are  both  returned  and  ignored.  Succeeding  calls  to  ARRAY 
prepared  succeeding  arrays  for  input. 

CALL  VECTOR  (IFILE JNDIC, VALUES ).  Read  a  vector  of  elements  into  VALUES.  The  number 
of  double  precision  elements  is  determined  by  the  array  being  processed.  VALUES  is  dimensioned  to 
hold  all  elements.  If  INDIC=1  upon  returning,  there  are  no  more  vectors  in  the  array.  Succeeding  call  to 
VECTOR  returns  the  elements  of  succeeding  vectors. 

All  data  produced  by  the  L.P.  may  be  referenced  using  the  above  calls  to  subprogram 
READCOMM.  Various  dimensioned  data  arrays  are  filled  with  the  element  read.  The  particular  data 
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array  depends  on  the  vector  and  array  from  which  the  elements  came.  Quite  often  the  name  of  the 
vector  which  is  contained  in  VALUES(l)  must  be  investigated  to  determine  the  elements  positions 
in  the  data  arrays.  This  is  especially  true  when  reading  SECTION1,  SECTION2,  SECTION3,  or 
SECTION4  since  a  vector’s  location  is  function  of  the  solution. 

DISCUSSION  OF  PROGRAM  CODE 

(Subroutipe  MOVE  and  function  LJABF  are  described  in  chapter  III.) 

Function  I  BYTE  (A,B) 

This  assembler  language  function  is  for  isolating  the  Bth  byte  of  the  Ath  address.  The  byte  is 
right-justified  in  register  0  and  zero  filled  on  the  left. 


e.g.,  I  =  I  BYTE  (REC  (2), 10) 


A 

B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

N 

0 

P 

Q 

R 

The  content  of  I  after  returning  from  the  function  is  000N 
I  =  000000D516 

Subroutine  SEARCH  (ITEC.NN) 


This  FORTRAN  subroutine  is  for  performing  a  binary  search  of  the  NDR  dictionary  records 
stored  in  array  IDICT.  Array  ITEC  contains  the  two  hollerith  characters  used  as  the  CNA 
designated  code  for  TEC— T/M/S.  Character  positions  1  and  2  of  each  dictionary  record  contain  a 
similar  code.  When  the  exact  match  is  found  the  records  location  in  IDICT  is  returned  in  variable 
NN.  If  no  match  occurs,  NN  is  set  to  zero. 

Subroutine  CVADJ 

This  subroutine  does  the  computations  described  in  appendix  B  of  the  User’s  Guide.  The 
arrays  for  this  subroutine  are  described  below. 

Definition  of  Arrays 

CVA  (7)  Computed  cost/volume  adjustment  returned  to  the  main  program  for  the  particular  NARF. 

DOPCS  (7,5)  Total  workload  for  a  given  NARF  in  a  given  year. 

TABLE  (2,8,7)  Rate  Variance  Table. 

CARD  (2,7)  Negotiated  DLH  and  G&A  rates. 

GART  (2,8)  G&A  Rate  Table  computed  from  TABLE  and  CARD. 

GAR  (7,5)  The  original  G&A  rates  by  NARF  and  year. 
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Code 


5—5  Initialization  at  entry  point  CVADJ. 

5  Read  the  original  G&A  rates. 

40  Read  the  negotiated  DLH  and  G&A  rates. 

43  Read  the  Rate  Variance  Table. 

41+2  Cost/volume  computation  at  entry  point  CVADJ1.  JJJ  is  the  NARF  and  LLL  is  the  year. 

41+3  'Compute  G&A  Rate  Table  called  GART. 

150+1  Set  ZMANH  to  the  workload  in  thousands  of  hours. 

150+2  Compute  GARATE  from  ZMANH  and  GART. 

230  Compute  the  cost/volume  adjustment. 

If  the  original  G&A  rate  in  array  GAR  and  the  negotiated  G&A  rates  in  array  CARD  are 
equal,  then  CVA(J)  will  equal  zero. 

Main 

Main  of  the  Report  Generator  Program  generates  the  required  reports  as  part  of  MPSX360. 
The  Report  Generator  Program  is  called  as  a  subroutine  of  the  L.P.  when  an  optimal  solution  is 
found  and  the  L.P.  output  generated.  Cost/volume  information  and  report  titles  are  also  required  as 
input.  Two  sets  of  reports  will  be  discussed.  The  first  set  is  always  a  product  of  the  Report 
Generator  while  the  second  set  is  optional.  Reference  will  again  be  made  to  entries  in  the  location 
field  of  the  FORTRAN  source  listing. 

Solution  Data  Input  and  Workload  Assignment  Report 

0  Common,  Arrays,  Variables,  etc. 

5—4  Initialization. 

3  The  dictionary  is  read  from  logical  limit  LUQ  into  arrays  IDICT  and  JDICT. 

8+8  Initialization  of  arrays  which  have  a  year  subscription. 

25+1  Various  data  is  read  from  logical  unit  LUU.  This  data  is  not  put  through  the  L.P.  but  is 

necessary  for  producing  meaningful  reports.  It  is  read  here  in  the  sam6  format  under 
which  it  was  written  in  the  Matrix  Generator  Program. 

20+1  Initialization  of  subroutine  CVADJ  where  cost/volume  adjustments  are  computed. 

20+2  Current  manning  level  is  converted  from  manhours  per  year  to  workers  per  year  within  a 
given  shop. 

18+1  If  manning  is  to  be  considered  only  on  the  facility  level  (not  shop  category  level), 
accumulate  all  men  in  shop  category  1 . 

1 1  Compute  a  hollerith  equivalent  for  the  five  years  over  which  the  reports  could  be  generated. 

That  is,  if  the  reports  start  in  year  3  (IYA)  and  that  year  represents  1976  (IAY)  then 
array  IFY=74,75,76,77,  and  78. 

16+1  Modify  arrays  FACTOR  and  FACT3. 

12+1  Outermost  loop  controls  the  number  of  years  requested  when  the  matrix  was  created.  The 
reports  generated  will  be  for  all  those  years. 

12+2  Initialization  of  all  arrays  that  are  used  only  on  a  yearly  basis. 
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Read  and  save  all  required  elements  from  RSECTION 

21  Position  to  and  prepare  the  second  array  (RSECTION)  for  input.  Call  ARRAY  automatically 

points  to  vector  one. 

21+2  If  IEND2=1,  then  RSECTION  has  already  been  read  in. 

21+2  Initialize  counters. 

22  Get  the  next  vector  of  elements. 

22+1  *  Split  the  vector  name  (VALUES(l))  into  bytes  for  testing  purposes. 

23+1  Is  it  the  correct  year? 

23+2  Test  for  N,  P  or  M. 

26+1  Increment  NR  and  save  an  element  in  the  appropriate  array.  Since  the  rows  were  created  in 
groups  identified  by  F,  S,  and  T  for  first,  second,  and  third  shifts  they  will  be  read  back 
in  the  same  way.  Only  rows  identified  as  N,  P  or  M  or  the  incorrect  year  are  eliminated. 

The  result  is  the  filling  of  arrays  SLACK,  for  the  first  shift  slack,  UBND  and  UBND3,  for 
upper  bounds  on  the  second  and  third  shifts,  respectively. 

33  Counters  are  incremented  and  tested.  When  NN  is  greater  than  NNARFS,  the  arrays  have 

been  filled. 

33+8  Set  M  equal  to  the  number  of  remaining  rows  for  shift  (F,S,T)  or  manpower  (N,P,M)  data. 

This  number  is  computed  as  shown. 

33+1 1  Skip  M  vectors. 

37  Get  the  next  vector  of  elements  from  array  RSECTION.  The  first  time  this  call  to  VECTOR 

is  performed,  the  first  seven  character  ID  will  be  returned. 

37+1  Was  a  vector  of  elements  returned? 

37+2  Isolate  and  test  the  year  byte  for  year  being  processed. 

37+4  Isolate  and  test  the  eighth  byte  for  a  blank.  If  it  is  non-blank  then  parametric  equations 

were  used  to  put  bounds  on  the  columns.  Parametric  rows  are  ignored  here.  Their  use  is 
confined  to  execution  of  the  L.P. 

37+6  Save  the  row  name  (ID)  and  the  activity  (manhours  of  work)  which  the  L.P.  determined  was 
necessary  for  that  ID. 

Following  the  complete  input  of  RSECTION,  the  next  array,  CSECTION,  is  prepared.  This  array  is 
prepared  and  input  NPROGS  (10)  times.  With  each  pass,  a  workload  assignment  report  is  generated 
for  a  particular  program  (byte  5  of  the  ID  NARF)  if  at  least  one  ID  NARF  contains  that  program. 
The  ID  NARFS  are  the  first  set  of  vector  contained  in  array  CSECTION. 

42  Initialization. 

42+4  Clear  to  CONTINUE  data  array  that  is  used  in  the  header  of  each  report. 

43+1  Prepare  the  third  array,  CSECTION,  for  input. 

44+2  Have  all  reports  been  produced? 

44+3  Clear  array  PROID. 

45  Get  the  next  vector  of  elements  in  array  CSECTION. 

45+1  Split  the  column  name  into  bytes  for  testing. 

46+1  Is  the  third  byte  (fund  source)  a  one  (ISHOPX(l))?  If  it  is,  there  are  no  more  ID  NARFS  in 

CSECTION.  This  test  is  made  since  all  ID  NARFS  will  have  a  fund  source  other  than  a 
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one  and  the  first  column  vector  beyond  the  set  of  ID  NARFS  will  always  have  a  one  in 
the  third  position. 

48  Is  it  the  correct  year? 

48+1  If  this  is  the  first  pass  through  CSECTION,  save  the  column  name  and  other  values  in  data 
array  PB. 

52  Does  this  ID  NARF  contain  the  same  program  as  is  being  reported? 

52+1  Set  J  to  the  particular  facility  (NARF)  in  byte  eight. 

56  '  Set  I  to  the  particular  fund  source  in  byte  three. 

58  Array  FPN  is  sub-dimensioned  as  Fund  Source  (8),  by  Program  (10),  by  Facility  (12),  and  is 

used  to  accumulate  the  products  of  workload  assigned  (values  (3))  by  Unit  Cost  (values 
(4)).  The  array  is  used  later  for  totaling  and  reporting. 

58+1  If  this  is  the  first  line  of  a  report  for  a  particular  program,  save  the  ID  in  array  ITEC. 

59  Test  the  current  ID  in  array  ITED  with  the  previous  ID  in  array  ITED.  If  they  are  different, 

a  line  should  be  printed.  If  they  are  the  same,  the  workload  assigned  should  be  saved  in 
the  facility  position  within  array  PROID. 

62  Print  the  header  for  the  ‘workload  assignment’  report  when  appropriate. 

68+1  Put  the  word  CONTINUED  into  array  ICTU. 

65+1  The  column  header  varies  according  to  the  program  being  reported.  Programs  3,  4,  and  5  (F, 

H,  and  L)  will  be  modified  to  represent  percentages  of  the  total' rather  than  the  quantities. 

'  70  The  line  count  is  incremented  and  the  total  is  put  into  PROID  (13). 

71+1  If  program  F,  H  or  L  is  being  reported,  the  quantities  are  changed  to  a  percentage  of  the 

totals. 

64  The  values  in  PROID  are  rounded  to  the  nearest  integer  and  tested  against  the  original  value 

in  PROID.  If  the  difference  is  less  than  0.1,  PROID  is  set  to  its  rounded  value.  That  is,  if 
PROID  is  within  one-tenth  of  being  an  integer  value,  it  is  set  to  the  integer  value. 

82  Locate  the  dictionary  record  NN  containing  the  CNA  code  in  ITEC(l)  and  ITEC(2). 

82+2  Print  a  line  in  the  report  and  zero  the  PROID  data  array. 

73+1  IEND  was  set  to  1  if  last  ID  NARF  in  CSECTION  was  read. 

After  all  ‘workload  assignment’  reports  have  been  produced,  the  remaining  vectors  in  array 
CSECTION  are  inputed  with  specific  elements  being  transferred  to  appropriate  data  arrays. 

90  Initialize  counters. 

92  Get  the  next  vector  of  elements. 

92+1  Have  all  the  ID  NARF  vectors  been  bypassed  yet? 

92+2  Test  bytes  3  and  4  for  shop  1  and  the  correct  year,  respectively. 

93  Once  the  correct  second  shift  (U)  column  (first  encounter  of  shop  1  and  the  right  year)  has 

been  read  in,  189  consecutive  vectors  are  used  to  fill  data  arrays  U,  USUM,  V,  VSUM,  W, 
and  WSUM.  Arrays  U,  V,  and  W  contain  the  total  number  of  hours  for  the  given  NARF 
shop  in  the  second,  third  and  post-third  shifts,  respectively.  Arrays  USUM,  VSUM,  and 
WSUM  are  the  total  cost  for  the  entire  NARF  (not  by  shops)  of  the  second,  third,  and 
post-third  shifts,  respectively. 

97+9  Compute  M  and  then  skip  the  next  M  vectors. 

125  Hire  and  layoff  vectors  in  CSECTION  are  considered  next.  Manpower  changes  may  be  done 

at  the  shop  level  (JS=NSHOPS).  However,  they  will  normally  be  moved  in  and  out  at  the 
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NARF  level  (JS=1).  That  is,  a  man  would  be  hired  to  work  at  a  NARF,  not  a  particular 
shop  within  the  NARF. 

125+3  The  data  array  BAJ  is  zeroed.  It  will  contain  the  net  manhours  changes  that  occurred  in  all 
years  prior  to  the  year  being  processed. 

91  Assuming  JS=1,  the  call  to  VECTOR  is  executed  four  times. 

91+3  Has  the  year  of  the  current  reports  been  reached  yet? 

91+4  No.  Isolate  the  year  and  test  it  for  the  current  year. 

94  '  If  the  data  in  the  vector  being  processed  is  for  a  year  prior  to  the  year  for  the  reports 

currently  being  generated,  accumulate  the  hire  (+VALUES(3))  and  layoff  (-VALUES(3)) 
manhours  in  data  array  BAJ.*  Hire  and  layoff  is  done  in  two  phases  (see  User’s  Manual). 

1=1 ,  phase  2  hire 
1=2,  phase  2  layoff 
1=3,  phase  1  hire 
1=4,  phase  1  layoff 

123  Once  the  current  year  has  been  reached,  TEMP  is  set  to  a  dollar  cost;  manhours  (VALUE(3)) 

times  Unit  Cost  (VALUE(4)).  The  appropriate  arrays  are  then  filled  with  the  elements 
from  the  vector.  HSUM,  LSUM,  GSUM,  and  KSUM  are  the  total  cost  over  the  entire 
NARF  for  manpower  changes.  HSN,  LSN.  GSN,  and  KSN  are  the  number  of  men  to  be 
hired  and  laved  off  within  each  shop.  HCOST.  LCOST,  GCOST.  and  KCOST  are  the  total 
dollars  required  to  hire  or  layoff  one  man  from  a  given  shop.  HDOL,  LDOL.  GDOL,  and 
KDOL  are  the  costs  for  manpower  changes  by  shop.  .All  of  these  arrays  are  used  later  for 
appropriate  reports. 


The  remaining  Group  I  reports  will  be  discussed  only  where  a  question  might  arise  regarding  what 
was  done. 

Workload^  Variance  Report 

107+2  The  base  workload  (BSWKLD)  is  the  difference  between  the  total  available  first  shift 
capacity  (TOTCAP)  and  the  adjusted  capacity  (CAPB). 

107+4  If  the  adjusted  capacity  (CAPB)  is  less  than  zero,  then  total  available  space  on  first  shift  was 
insufficient.  That  is,  some  of  the  base  workload  is  already  assigned  to  additional  shifts. 

The  exact  amount  is  computed  and  entered  into  S23BW. 

109  The  total  first  shift  workload  S1WKLD  is  computed  from  the  total  first  shift  capacity 

TOTCAP  minus  the  unused  space  SLACK. 

109+1  The  total  workload  TWKLD  can  then  be  computed.  It  is  the  sum  of  the  first  (S1WKLD), 
second  (U),  third  (V),  and  post-third  (W)  shift  workloads. 

109+2  Then  the  workload  (LPWKLD)  assigned  by  the  L.P.  can  be  computed. 

113  The  percentage  of  utilization  (PUTIL)  is  the  total  workload  relative  to  the  first  shift 

capacity. 

131  A  line  is  printed  (see  User’s  Guide). 

134+  Subtotals  are  computed  and  printed. 

149  The  total  base  workload  for  all  shifts  is  saved  in  array  BASE  for  later  use. 


*This  occurs  only  when  the  set  of  reports  being  produced  contains  more  than  one  year. 
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All  NARF  Summary  Report 


171-3  Capacities  and  total  workloads  are  summed  by  NARF  and  shop  and  percent  utilization  is 
computed  for  the  totals  and  subtotals.  Finally,  all  items  for  the  capacities,  workloads,  and 
utilization  are  printed. 

Required  Manning  Level  Report 

402—1  , Print  report  headers. 

407—1  The  subtotals  in  array  TWKLD  are  updated  to  include  the  workloads  assigned  to  shop 
“other”  which  were  not  reported  in  the  previous  report  but  are  reported  here. 

409+1  Begin  report  data  printing. 

422  Array  TWKLD  is  printed  to  show  the  total  workload  in  hours. 

426-1  TWKLD  is  then  modified  to  represent  the  workload  in  workers  (i.e.,  number  of  men). 

426  Totals  by  shop  are  accumulated  in  array  MEN. 

426+1  Array  TWKLD  is  again  printed  to  show  the  total  workload  in  workers. 

425  The  total  workload  in  workers  for  all  shop  categories  is  printed. 

DOP  Cost  Reports  and  Program  Cost  Reports 

209-7  The  arrays  VSUM,  USUM,  WSUM,  HSUM,  LSUM,  SUMN,  FPN,  and  TOTL  are  all  over¬ 
dimensioned.  The  additional  space  in  each  array  is  provided  so  that  subtotals  and  totals 
may  be  computed  and  then  entered  as  part  of  the  array.  That  is,  rather  than  an  eight  by 
ten  by  twelve  array  for  the  fund,  program,  and  facility,  respectively,  the  arrays  SUMN, 
FPN,  and  TOTL  were  all  expanded  to  nine  by  eleven  by  fourteen  to  accommodate  the 
subtotal  and  total.  Thus,  each  DOP  cost  report  has  (1)  subtotals  at  the  right  for  each  fund 
source  over  all  programs  and  (2)  subtotals  at  the  bottom  for  each  program  over  all  fund 
sources.  All  DOP  cost  reports  are  totaled  into  the  Program  Cost  Reports  by  all  12 
facilities  and  by  the  seven  NARFs.  Finally,  cost/volume  adjustments,  additional  shift 
incremental  costs,  and  manpower  change  costs  are  added  to  the  totals  at  the  lower  right 
of  each  of  the  seven  NARF  DOP  Cost  Reports  and  the  Program  Cost  Reports. 

220+1  The  appropriate  header  is  printed. 

227+1  Because  of  the  structure  of  arrays  SUMN,  FPN,  and  TOTL,  it  is  now  a  simple  matter  to 
print  the  body  of  each  report. 

235+1  The  cost/volume  adjustment  is  computed  and  printed  along  with  the  shift  and  manpower 
changes. 

Manning  Level  Variance  Report 


251—4  This  routine  also  makes  use  of  expanded  arrays  for  reporting  subtotals  and  totals.  It, 
furthermore,  has  the  distinction  of  a  variable  number  of  reports.  That  is,  if  manning 
adjustments  are  made  by  NARF,  only  7  reports  are  generated.  Otherwise,  manning  is 
changed  by  shop  and  63  reports  will  be  produced. 

251—3  Change  the  base  workload,  L.P.  workload  and  previous  year  manning  adjustments  from 
manhours  to  men. 

251+6  Compute  NARF  or  NARF  shop  new  current  manning  level  resulting  from  the  L.P.  generated 
previous  year  manning  adjustment  (BAJ). 

251+8  Subtotal  and  total  the  new  manning  levels. 
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251+11 

257 

253+1 


258+1 

262+4 


266+1 

266+5 

259+1 

259+2 

259+2 

259+3 

273 

275 

278 

280+1 

280+3 

295+1 


Reuse  array  BAJ  to  represent  the  bound  in  men  of  Phase  I  hire  and  Phase  I  layoff. 

Compute  subtotals  and  totals  for  the  base  and  L.P.  workloads. 

Variables  MXX  and  NXX  are  set  to  represent  the  quantity  of  reports  to  be  generated.  If 
manning  is  by  NARF  (INOS=l),  then  one  set  (NXX=1)  of  seven  (MXX=NNARFS)  reports 
is  produced.  Otherwise,  manning  is  by  shop  (INOS=2)  and  seven  sets  (NXX=NNARFS)  of 
nine  (MXX=NSHOPS)  reports  is  generated. 

The  outer  DO  loop  for  the  number  of  sets  of  reports. 

,  Variables  JJ,  JX,  LL,  LX  are  set  at  appropriate  positions  and  then  used  to  represent  the 
correct  array  position  when  producing  a  particular  report  within  a  particular  set  of 
reports. 

Initialize  variables  for  gross  and  net  personnel  adjustments,  for  manning  adjustment  included 
in  the  cost  and  for  the  total  manning  adjustment  costs. 

Inner  DO  loop  for  each  report  in  a  given  set. 

Compute  the  total  manning  adjustment. 

Computation  of  AIIC  is  dependent  on  two  items:  (1)  is  hire  or  layoffs  produced  by  the  L.P. 
and  (2)  is  Phase  I  hire/layoff  costed. 

Any  Phase  I  layoffs? 

Any  Phase  I  hiring  costs? 

Compute  Phase  I  and  Phase  II  hiring  costs. 

Any  Phase  I  layoff  costs? 

Compute  Phase  I  and  Phase  II  layoff  costs. 

Compute  gross  and  net  manning  adjustments. 

Print  a  line. 

Print  totals. 


Ranges  Data  Input 

Following  Group  I  reports  is  the  optional  production  of  Group  II  reports.  They  require 
further  data  from  the  optimal  solution  provided  by  the  L.P.  The  arrays  called  SECTION  1, 
SECTION2,  SECTION3,  and  SECTION4  contain  the  necessary  additional  information.  The  identi¬ 
fying  element  of  each  vector  from  each  array  is  questioned  and  the  appropriate  data  array  is  filled 
with  other  elements  from  the  vector.  No  reports  are  produced  until  all  the  necessary  L.P.  data  has 
been  input. 

SECTION1  and  SECTION3  together  contain  as  many  vectors  as  RSECTION.  The  elements  are 
stored  according  to  whether  a  limiting  value  was  reached  in  finding  the  optimal  solution.  SEC¬ 
TION  1  holds  those  assignments  that  reached  a  limit  while  SECTION3  contains  those  results  which 
did  not  extend  to  the  bounds.  A  similar  process  is  used  with  the  column  data  contained  in 
SECTION2  and  SECTION4. 

513—6  If  Group  II  reports  are  not  requested  (IRQQ=IBLANK),  then  go  to  999. 

513-6  SECTION1  and  SECTION3  are  the  fifth  and  seventh  arrays  respectively. 

513  Get  the  next  vector  of  elements. 
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513+2  Isolate  and  test  the  third  byte  of  the  row  name.  If  it  is  less  than  4H0AAA  (ISHOP(IO)),  then 
a  letter  has  been  encountered  (from  4HAAAA  to  4HZaaa).  This  means  that  all  shift  and 
manpower  row  vectors  have  been  input  and  the  first  rework  activity  row  has  just  been 
read. 

513+4  Isolate  and  test  the  fourth  byte.  If  it  is  the  same  year  for  which  reports  are  being  produced, 
then  continue.  Otherwise,  get  the  next  vector  of  elements. 

513+1  Isolate  the  first  byte.  If  it  is  an  F,  S,  T,  N  or  P,  then  continue.  Otherwise,  get  the  next 
vector  of  elements. 

531  Determine  which  Shop  (I)  is  represented  by  the  elements. 

518+1  Determine  which  NARF  (J)  is  represented  by  the  elements. 

523  Enter  the  wanted  elements  into  the  proper  positions  in  data  array  SP. 

537  Get  another  vector  of  elements  for  the  rework  activities. 

543  Isolate  and  test  the  fourth  byte  for  the  year  of  the  reports  being  generated. 

541  IROW  is  incremented  until  corresponding  rework  activity  names  (ID)  are  identical. 

541+2  The  wanted  elements  from  the  row  vector  are  saved  in  data  array  RR  along  with  elements 

previously  saved  while  generating  the  Group  I  reports. 

560  A  process  quite  similar  to  that  used  for  the  row  arrays,  discussed  above  is  used  to  save  data 

from  the  column  arrays  (SECTION2  and  SECTION4).  Column  vectors  are  in  the  sixth  and 

eighth  arrays,  respectively. 

573  Get  the  next  vector  of  elements  for  the  rework  activities. 

573+2  Isolate  and  test  the  third  byte  of  the  column  name.  If  it  is  greater  than  or  equal  to  4H0AAA 
(ISHOP(IO)),  then  a  number  has  been  encountered  (from  4H0AAA  to  4H9aaa).  This 
means  that  all  rework  activity  columns  vectors  have  been  input  and  the  first  of  the  shift 
and  manpower  columns  has  just  been  read. 

573+4  Isolate  and  test  the  fourth  byte  for  the  correct  year. 

582  ICOL  is  incremented  until  corresponding  rework  activity  names  (ID  NARF)  are  identical. 

582+2  The  desired  elements  from  the  column  vectors  are  saved  in  data  array  PB  along  with 
elements  previously  saved  while  generating  the  Group  I  reports. 

579  Get  the  next  vector  of  elements  for  the  shifts  and  manpower. 

601  Isolate  and  test  the  fourth  byte  for  the  correct  year. 

601+2  Isolate  the  first  and  third  bytes  of  the  row  name. 

601+4  Test  the  first  byte  for  an  H,  L,  G  or  K.  That  is,  is  this  a  manpower  column?  (The  shift  data 
(U,V,W)  from  SECTION2  and  SECTION4  are  not  saved  or  reported.) 

621  Determine  which  Shop  (I)  is  represented  by  the  elements. 

608+1  Determine  which  NARF  (J)  is  represented  by  the  elements. 

613  Enter  the  desired  elements  into  the  proper  positions  in  data  array  RC. 

Five  more  reports,  Group  II,  are  produced.  Their  primary  contents  are  the  data  stored  in 
arrays  RC,  SP,  RR,  and  PB. 

Production  Bounds  and  Rework  Requirements 

650  The  first  two  reports  are  very  similar.  They  are  both  produced  in  the  code  presented  here. 

650+1  Variable  NXX  is  set  accordingly. 


-49- 


650+3  The  reports  are  produced  by  program  with  22  lines  per  page. 

651—1  Blank  the  array  used  as  a  continue  statement. 

651+1  The  NXX  vectors  of  either  array  PB  or  array  RR  will  be  searched  sequentially  for  the  program 

being  reported. 

651+2  Put  the  ID  or  ID  NARF  into  array  ITED. 

654+1  Test  for  the  correct  programs. 

654+2  If  LCT  is  22  then  a  header  should  be  printed. 

670  1  Increment  the  line  count. 

670+2  If  this  is  a  Production  Bounds  Report,  set  J  to  the  particular  facility.  Then  check  the  current 
ID  against  the  previous  ID.  If  they  are  equal  and  LCT  is  not  equal  to  one,  the 
T/M/S— TEC  is  not  repeated  in  the  print  statement. 

689  Save  the  current  ID  in  array  TEC. 

671+1  Search  the  dictionary  for  the  T/M/S. 

671+3  Print  a  line  using  either  the  data  in  array  PB  or  array  RR. 

Shop  Category  Constraints 

700  There  are  always  seven  of  these  reports;  one  for  each  NARF. 

700+1  Print  the  headers. 

705+2  Print  four  lines  for  each  shop.  First,  second,  third,  and  post-third  shift  information  is 
produced. 

Manpower  Variance 

750  This  report  and  the  next  are  dependent  on  whether  manpower  changes  are  by  shop  or 

NARF.  Variables  NXX  and  MXX  are  set  accordingly. 

761  Print  NXX  Manpower  Variance  Reports. 

761+1  Print  the  headers. 

768+1  Initialize  the  total  cost  TCOST. 

768+2  Print  MXX  segments  in  each  report. 

768+3  Variables  LL  and  JJ  and  array  SHPNRF  are  also  set  according  to  manpower  changes  by  shop 
or  by  NARF. 

775  Either  KSN  (JJ,LL)  or  GSN  (JJ,LL)  will  be  equal  to  zero.  That  is,  either  Phase  I  layoff  or 

Phase  I  hire  was  produced  by  the  L.P.  Thus,  either  layoff  or  hire  information  is  printed. 

790+1  The  accumulated  total  cost  is  printed  at  the  bottom  of  each  report. 

Manning  Level  Constraints 

800  Print  NXX  Manning  Level  Constraint  Reports. 

800+1  Print  the  headers. 

812+1  Print  MXX  segments  in  each  report. 

812+2  Variables  LL  and  JJ  and  array  SHPNRF  are  set  according  to  manpower  changes  being  by 
shop  or  by  NARF.  If  manning  is  by  NARF,  the  total  workload  TWKLD  is  also  accumu¬ 
lated  in  the  first  location  of  TWKLD. 
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820 


Print  the  appropriate  data. 


DOP  Workload  and  Cost  Summary  Report 

After  all  reports  in  all  years  have  been  produced,  a  summary  is  generated.  It  is  a  NARF  and 
facility  report  by  year  of  the  data  contained  in  arrays  DOPCS  and  DOPGT. 
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APPENDIX  A 


PROGRAM  LISTINGS 


ANNEX  A-1 


INPUT1 


START  CONVfcRSION  ■  IBM  TO  CDC  -  029  TO  026  HOLLERITH 
//PCNAIV1  JOo  ( Jb25,20H,5,5  )  ,CLibS  =  L 
//COB  tXtC  COrtACUS* ARFA=BUPEHS 

//COB.SrSIN  1)0  * 


IDP.MTIPICAT  ION  DIVISION. 

BROURAM.JD,  INBJTI, 
author,  JEFFREY  RIRCR. 

FNVHUNMfcNY  DIVISION, 

CONFIGURATION  SECTION, 

INPUT-OUTPjT  section, 

FlLt'-OOMTROL, 

StLfcCT  MASTER-FILE 

ASSIGN  TO  UT-S-SYS001, 

StLfcCT  HASTup. OUT. FlLt 

ASSIGN  TO  UT-S-SYSC02, 

StUtCT  CAP-DIS 

ASSIGN  TO  UT-S-SYSC03, 

StLfcCT  DIS-O'IT-F  iLfc 

ASSIGN  TO  UT-S-SYSC04, 

SfcLECT  RATf-FIlE 

ASSIGN  TO  UT-S-SYSQ05, 

StLfcCT  RATE.OUT-FjlE 

ASSIGN  TO  UT-S-SYSG06, 

StLfcCT  PUNCH- I T 

ASSIGN  TO  UR-S-SYSPcR, 

RfcSfcRVfc  NO  ALTERNATE  AR£A, 

data  DIVISION, 

F ILfc  SECTION, 

FD  MASTfcR-F  ILP, 

LABEL  RECORDS  ARE  OkITT£D, 

RfcCORDINQ  ‘'ODE  IS  U, 

DATA  RECORDS  ARE  M»TL«  MEF,  MASTER,  MCKPK,  MCKPK”Hi)R , 


oi  mbtl, 

02  FILLFR 

PJCJURE 

is 

X. 

02 

mbtl-er 

picture 

IS 

X. 

0* 

FILLER 

picture 

IS 

XI29) , 

A  31  CHARACTER  RECORD  USED  TO  CHECK  FOR  THE  BEGINNING  TAPE  LABEL, 


Cl 

MtF 

• 

02 

FILLER 

PICTURE 

IS 

X, 

02 

MEF “CHAR 

picture 

IS 

X, 

02 

FJLLFR 

PICTURE 

IS 

X, 

CHARACTER 

RECORD  USED  TO  CHECK 

FOR  THE 

EOF 

MARK, 

01 

MASTfcR , 

02 

*  ILLER 

picture 

IS 

X. 

02 

MASTFR-GOOD , 

03  MeG-D  OCCURS  20 

1  times, 

04  M-FJRST 

PICTURE 

IS 

X, 

04  FILLER 

PICTURE 

IS 

X ( ?99 ) 

02 

filler 

PICTURE 

IS 

X, 

A  6002  CHARACTER  RECORD  USED  To  STqRE  0‘ E  BLOCK  QF  DaTA  FROM  TrE  MASTER  FILE 
PLUS  The  BEGINNING  ANi)  ending  block  IDENTIFIERS, 


A-l 


FD  CAP*L)  J  S  j 

label  ^fcco^os  are  omitted, 

RtCQHDINO  "006  is  ti, 

DATA  RbCORi's  ARE  D°TLi  DEF,  D I STR  I  8 ,  DCKPK,  nCKPK?HDP( 


oi  dbTl, 

02  FILLER 

picture 

IS  X, 

02 

DBTL-SR 

picture 

IS  X. 

02 

►  ILLER 

picture 

IS  X ( ?9  )  , 

A  31  CHARACTtR  RECO-D  USED  To  CHECK  FOR  THE  BEGINNING  TaPE  LABEL, 


01  DfcF 

1 

02 

FILLER 

picture 

IS 

X. 

02 

D b* -CHar 

picture 

IS 

X. 

0  2 

FILLER 

picture 

IS 

X, 

A  3 

cha^actek 

RtCUKO  USED 

to  check  for  the 

EOF 

HARK. 

Cl  D1STRJB, 

02 

FILLER 

PICTURE 

IS 

X. 

02 

Di 5-GOO 

D. 

0  3  D-G 

-D 

OCCURS  21}  TIMES, 

04 

CAP 

-PEC, 

05 

D-FJRST  PICTURE 

IS 

X. 

05 

FILLER  PICTURE 

IS 

X  (  7  )  , 

05 

card-type, 

picture 

IS 

9. 

05 

FILLER  PICTURE 

IS 

X ( 71  )  , 

04 

FILLER  picture 

IS 

X  f  20  ) , 

02 

filler 

PICTURE 

IS 

X  • 

A  4002  CHAKAUTe*  ^cCC- 

D  USED  TO  STqRE  ONE  1 

block  of  data  from  the  capacity 

AND 

DISTRIBUTION  F ILE 

PLUS 

The  PEG  I  NN{ NG  and  ENDING  BLOCK  IDENTIFIERS, 

FD  RATfc^FlLE, 

LABtL  RECORDS  ARE  OMITTED, 

RfcCQHDlNG  mqOE  JS  U, 

DATA  RECORDS  ARE  R  P  T  L ,  REF,  RATE,  RCKPT-H0R,  RCKPT, 


PJCtURE  IS  X, 

PICTURE  IS  X. 

PICTURE  IS  X  C  29  )  . 

CHECK  for  THE  BEGINNING  TAPE  LABEL, 


01  RtF , 

L 2  FILLER  PICTURE  IS  X, 

02  REF-CHAR  PICTURE  IS  X. 

02  FILLER  PICTURE  IS  X. 

A  3  CHARACTER  RECORD  USED  TO  CHECK  FOR  THE  EOF  MaRK, 


01  HATE, 

02  FJLLER  PICTURE  IS  X, 

02  RATE*GC0D, 

03  R«G,0  OCCURS  20  TIMES, 

04  R-riRsT  PICTURE  IS  X. 


01  RBTL, 

02  FILLER 
02  HBTL*EB 
02  FJLLER 

A  31  CHARACTtR  RECORD  USED  To 


A-2 


04  FILLER  PICTURE  IS  X<199>, 

0*  filler  PICTURE  IS  X. 

A  4 DO*  CHARACTt*  "'ECO«D  USED  TO  SToRE  ONE  BLOCK  OF  DATA  FROM  ThE  COST  RATE 
FILE  PLUS  the  d  fc  G  l  N  N  J  n  q  A^D  ENDING  BLOCK  IDENTIFIERS, 

FD  maSTcR«OUT«F ILC» 

label  *eco=qs  are  standard# 

RtCGRDING  “0nE  IS  F, 

BLOCK  CONTAINS  ?0  RECORDS# 

RtCO-iU  Contains  300  CHARACTERS, 

DATA  RECORDS  A  RE  MASTtR-QUT, 

01  maSTER-OJT  PICTURE  IS  X<300>, 

FILE  DESCRIPTION  F  QW  ThE  OUTPUT  MASTER  TAPE  FILE. 

FO  D  I S -- 0 U T  « F  1 1  F  , 

LABEL  RECORDS  ARF  STANDARD# 

RECORDING  ‘•ode  is  f, 

BLOCK  CONTAINS  20  RECURoS, 

record  contains  ioo  characters, 
data  RECORDS  are  DISTRIB-OUT, 

01  UlSTHjB-OUT  PICTURE  IS  X  1 1 H  0  >  , 

FILfc  DESCRIPTION  FOR  ThE  OUTPUT  DISTRIBUTION  Tape  FILE, 


FD  RATEpOUT-F IlE# 

LABEL  RECORDS  ARE  STANDARD# 
RtCORDING  * 0 Q fc  IS  F, 

BLOCK  CONTAINS  20  RECORDS, 
RECORD  CONTAINS  ?00  CHARACTERS, 
DATA  RECORDS  ARE  RATE-OuT, 

[)1  RATEsODT, 


\j'd 

U-TEC 

PICTURE 

IS 

xm . 

V'd 

H-O-toC 

PICTURE 

IS 

XX, 

Q2 

H-u-rs 

PICTURE 

IS 

X, 

u* 

R  «*  U  *  Ni 

PICTURE 

IS 

X, 

U2 

R  «  0  w  r  J  L  L  ^  ft 

PICTURE 

IS 

X  ( 1 9  2  > 

FILE  UESCR I p  I  l  O'4  FOR  The  OUTPUT  COST  RATE  TAPE  FILE, 
FJ  PUNCH- JT, 

record  contains  so  characters# 

LAbEL  RECORDS  ARF  OMITTED, 

DATA  RECORD  is  PUNCH-CARD, 

U1  PUNCH-CARD, 


0* 

*  IUL6R-A 

PICTURE 

IS 

X  ( 1 6  )  , 

y* 

CAP-REOoRL)  OCCURS  5  TIMES, 

C  3  FILLER 

PICTURE 

IS 

X. 

U 3  CAP-DATA 

PICTURE 

IS 

xm . 

FILLER. B 

PICTURE 

IS 

X<24  )  , 

file  descripuon  for  the  output 

capacity  card 

file, 

WORKING 

-STORAGE  SECTION, 

77 

K 

PICTURE  IS  9 

77 

I 

PICTURE 

IS 

9(2),  COMP-3, 

77 

vl 

PICTURE 

IS 

9(?),  COMP-3, 

77 

1 1 

PICTURE 

IS 

9. 

77 

JJ 

picture 

IS 

9. 

77 

K  K 

PICTURE 

IS 

9(7),  VALUE  IS  9999999, 

77 

ISKIP 

PICTURE 

IS 

9  VALUE  IS  ZERO, 
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77  l, Abfct»COuNT  PJCtURF  IS  9, 

LEVEL  77  ENTHjfcS  USED  AS  COUNTERS  AND  SUBSCRIPTS 


VALUE  IS  ZERO, 


01  CAPACITY, 
l/t  FILLER 

U  2  CAPACJTjcg 

02  F'JLLFR 

CAPACITY  JS  USED  lu  STORE 


PICTURE  IS  X(1 n ) , 
PICTURE  IS  Xft>6). 
PICTURE  IS  X<34), 
CAPACITY  RECORD, 


LU  CAP-TAHLE, 

02  C A P « A R F  OCCURS  7  TIMES, 

03  CAP-yRaR  OCCURS  5  Tj^ES, 

C4  cap-shop  occurs  3  tires. 

PICTURE  IS  X(7) , 

CAP-TABLE  IS  USED  TO  STORE  ThE  3t>  CAPACITY  RECORDS  E ROM  THE  CAPACITY  A  D 
DISTRIbjTIUN  MUi  ' 


01 

-AREA** , 

on 

filler 

PICTURE 

IS 

X  f  300  )  , 

01 

fc'UKK 

-A"<cA»^t 

on 

FILLER 

picture 

IS 

XdOO), 

01 

WURK 

eA-»EA-P  , 

on 

R  •  G  -  N 

PICTURE 

IS 

X. 

on 

R-Uowc 

PICTURE 

IS 

XV, 

on 

R-G-TEO 

PICTURE 

IS 

xm . 

on 

B«G-FS 

PICTURE 

IS 

x. 

on 

R-G*E  m.PR 

PICTURE 

IS 

X  C 192  1 , 

WORK-ArEaS-M,  D,  and  R  ARP  USED  TO  STORE  ONE  RECORD  FROM  THE  MASTER,  DISTRIBUT¬ 
ION  and  rate  files  respectively, 

01  360  -T  ADLE i 

02  FILLER  PICTURE  X<24) 

VALUE  X/STUVWXYZ,  ABCDEFGHI  ,c  ><<, 

02  FILLER  PICTURE  X 

VALUE  OuOTE, 

02  FILLER  PICTURE  IS  X(5), 

VALUE  Xs ) ♦  ♦ { X  , 

360«TABlE  STORES  THE  CHARACTER  CODES  USED  IN  THE  COBOL  TRANSFORM  VERB, 

SEE  FIGURE  1, 

PROCEDURE  DIVISION, 


PROCESS  THE  MASTER  FJle, 


open  I  a put  MASTER-FILE, 

OPEN  OUTPUT  masTFR-OUT-I  IlE, 
OPENS  BOTH  INPUT  AND  OUTPUT  FILES, 


REAU-MASTER-FILE , 

Rt AQ  MASTER-f l!  E,  AT  tND  GO  TO  END-PRQORAm, 
MOVE  1  TO  I, 

IF  MBTL-EB  =  X<*  GO  TO  MLA8EL-CHECK , 

IF  MEFrCHAR  =  YiX  GO  To -fiF A D- M AS T ER - F I LE , 

IF_  1SKIP  =  0,  MOVE  1  Tq  ISKIP,  ADD  1  TO  I, 
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STEP  1,  THE  SECOND  CHARACTER  OF  LABEL  AND  EOF  maRk  RFCORDS  IDENTIFIES  THE 
RECORDS, 

ISKIP  is  USED  SO  That  THE  first  RECORD  of  the  FIRST  SLOCK  is  SKIPPED  as  it  is 
ONLY  A  CONTRUL  RECORD  AND  IS  NOT  NEEDED  IN  THE  OUTPUT  TaPE, 

EOFM-SEaRC", 

IF  lf?ST  (t)  =  /  +  *  Go  TO  CLOSE-nasTFR, 

HU VE  M-G-D  (I)  TO  UgoK-aREA-v, 

TrANsFCR*  u-qRk- APfcA-M 

FROM  ‘  XABCDEFShI ,/STUVwXYZ,  0  )  +  ♦  *  s  | ]vK 
.  ■  TO  3ftO»T ARLF . 

STEP  2,  TRANSFORM  RECORDS, 


*  R  I  1 fc  -  M  A  S  T  t  R  -  F  J  l  E  ■ 

WHITE  n ASTER-OUT  FROM  WqRK-APEA-M , 

IF  I  <  20  aDIJ  1  TO  I»  GO  TO  EQFM-SEaRCH 
EL'  E  r,c  TO  READ-MASTER-FILE, 

MLAdtL-CHECK , 

IF_  L A B e L ^ C 0 U N T  <  l,  ADD  1  To  LABEL-COUNT, 

GO  TO  READ-HASTER-F ilE» 

else 

DO  TO  close-master, 

STEP  3  AMD  4,  K I T  e  TRANSFORMED  RECORDS  AMD  CKEC*  FqR  SHORT  BLOCK, 
LABEL-COUNT  IS  UStD  TO  COUNT  TMF  NuMBEr  OF  LABELS  PROCESSED  FOR  TMt  FIcE. 
THE  END*QF -F I LE  M«Y  ALSO  “g  DETECTED  WHEN  THE  SECOND  LABEL  IS  FOUND, 

CLOSE-MaSTlH, 

close‘s aster -file,  master-out -file, 

CLOSE  THE  FILES, 


PROCESS  THE  CAPACITY  AND  DISTRIBUTION  FILE, 


OPEN-CAPrDIS, 

HU V  t  1  TO  II,  JJ 

HUVt  ZERO  TO  LABEL-COUNT, 

OPEN  INPUT  CAP-0  IS. 

OPEN  OUTPUT  DIS-OuT-FJLE#  PUNCH-IT, 
MUVfc  0  TO  ISKIP, 

OPEN  FILES  AND  SfcT  COUNTERS, 


READ-DIS-F1LE, 

read  CAP.DIS  AT  End  go  to  EnD-PROGRAM, 

HUVt  i  TO  I, 

IF  DBTL-EB  s  GO  TO  DLABEL-CHECK  . 

IF  UEFsChaR  s  tit  GO  To  RE AD-D I S-F  I  LF , 

JF  ISKIP  =  n*  MOVE  1  TO  ISKIP,  ADD  1  TO  I, 

STEP  1,  SIMILAR  10  T^aT  DESCRIBED  ABOVE  FOR  THF  HASTFR  RECORD, 

EQFD-SEAHCh, 

IF  DrFJRST  <  I  )  =  t*t  Go  TO  WRITE-CAPACn  Y, 

MUVt  D-G-D  (I)  TO  HORK-AREA-D, 

TRANSFORM  ORK-AREA-O 

from  "  ^ABCDEFGHI ,/STUVwXYZ,  0)*-+sjJ-K 
TO  360-TAeLE. 

STEP  2,  SIMILAR  TO  T«AT  DESCRIBED  ABOvF  FOR  THE  MASTER  RECORD, 
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CHECK-CaRD-TVPE , 


*  t  CAHU-TYPE  (!)  s  5  Go  TO  MOVE-CAP-TABLE  . 

CKECK  TO  DtTcHMINc  WHETHER  RECORD  IS  A  CAPACITY  (if?  DISTRIBUTION  RECORD , 
IE  IT  IS  A  CAPACITY  RECORD  IT  IS  STORED  JM  CAP-Ta»lE. 


«HITL-DIS-P I LE , 

'-'KlTt  DIST^IO-OUT  FROM  RORK-aREA-D, 

CHECK" I , 

.It  I  <  20  ADD  1  TO  Ii  GO  TO  EOED-SEaRCH 
PUSfc  r:0  TO  READ-Uls-FlLE, 

STEP  J,  SIMILAR  TO  T-AT  DESCP I  pkD  ABOVE  FOR  TrF  MASTER  RECORD, 

MOVfc-CAP-TAbLE , 

MOVE  WOHKi-ArEa-D  to  CAPACITY, 

move  CAPACITIES  TO  CAP-yEAR  (II,  JJ), 

It  JJ  <  5,  ADO  1  To  JJ 

ELSE 

It  H  <  7  ADD  1  TO  1 1,  MOVE  1  TO  JJ, 

GU  TO  CrECk--  I  , 

STORE  CAPACITY  RECORDS  IN  CAP-T4tfLE , 


dlauel-check, 

It  LABEL"CDUMT  <  1,  ADD  1  TO  LABEL-COUNT, 

GO  TO  READ-DIS-FILE, 

ELSE 

GO  TO  *R!TP-CaPACJTy, 

IAREL'COUNT  IS  USED  AS  DESCR I  REP  A[)OVE  FOR  THE  MASTER  RECORD, 

RRITE’CAPACJTY, 

MOVt  1  TO  I,  J,  K, 

MOVE  SPACES  to  filler-a,  filler-b, 

MOVfc-CAp,SMOP , 

MUVE  CAP,SmqP  (I,  J,  K)  TO  CAP-DATA  (j), 

It  J  <  5,  ADD  1  TO  J,  GO  TO  MOVE-C AP-SWQP 
ELSE 

WHITE  PUNCh-CARD, 

It  *  <  fi*  ADD  1  TO  K  *  MOVE  1  TO  J,  GO  TO  MOVE -CAP-SHOP , 

It  *  E  6.  MOVE  KK  TO  CAP-DaTA  (1),  CAP-DATA  (2), 

*  CAP-DATA  <?),  CAP-DATA  (4),  CAP-DATA  (5), 

WRITE  Pu^CH-CaRD. 

•  t  i  <  7.  add  i.  to  i,  move  i  to  k,  j, 

GO  TO  *  o VE- C Ap-S HUP , 

THE  CAPACITY  RECORDS  ARE  PUNCHED  In  A  FORMAT  ACCEPTABLE  TO  THE  MATRIX 
generator  program, 

THJS  ?ORMAT  IS  OESCRIpED  FULLY  IN  REFERENCE  ,  PAGE  ,  . 


CLOSE-D  I S | 

CLOSE  UJS"P(JT-FII.E,  PUNCH-lT,  CAP-DJS, 
CLOSE  THE  (■'  ILLS, 


PROCESS  THE  COST  RATE  FILE, 


OPEN-HATfc-FILE, 


A-6 


OPEN  J  '.PUT  PATE-FILE. 

OPEN  OUTPUT  RATE-OUT-FIlE, 
MOVE  £zRO  Tq  LAbfL-CCUTiT . 
MUVfc  0  T'1  I  S K  I  0  , 

open  files  anu  set  counters, 


READ-HATfe-F ILE , 

RtAU  RATE-FILE  AT  End  So  to  END-PROGRAM, 

KUVb  1  TO  I, 

,1f.  hptl-eb  =  X<X  GO  TO  RLAbEL-CHECK, 
if  R  t  F  -  C  •'  A  R  s  tit  GO  To  RF  AT- R  A  T  t -F  I  lE  , 

I F  ISKJP  =  o»  MOVE  1  T0  ISKIP,  ADD  1  TO  I, 

STEP  1,  SIMILAR  TO  T-AT  DESCRIBED  ABOVE  FOR  THE  MASTER  RECORD, 


EQFR-SE AWCH ( 

IF  R-FJRST  (I)  =  t*t  Go  TO  CLOSE-RATE, 

MUVE  R-G-D  (!)  TO  WORK- aREA-r , 

Transform  ..'qrr-area-r 

FROM  '  /ARcliEF  GHI  , /STUVwXYZ,  3)i+*=|J»* 

TO  360-TABLE, 

STEP  2,  SIMILAR  TO  T*aT  DEScR  ISED  ABOVE  FOR  TrF  MASTFR  RECORD, 


WRITE-RATE-F ILF , 
MUVE  H-G-N 
MOVE  R-G-WC 
MUVE  R-G-TFQ 
MUVE  R-G-FS 
MUVE  r-g-filler 
examine  R-n-Tfcc 


TO  R-O-N, 

TO  R-U-WC, 

TO  P-O-TEC, 

TO  H-O-FS, 

TO  R-O-FILIER, 
replacing  aLl  zeros 


P Y  SPACER, 


WRITE  RATE-OUT, 

IF_  I  <  20  ADD  1  TO  I,  GO  TO  EOFR-SEaRCH 

else  go  to  read-rate-file, 

STEP  3,  THE  Rate  VARIABLES  of  tec,  PROGRAM,  subprogram,  FUND-CDDE» 
AND  DHP  ARE  REORDERED  qn  thE  OUTPUT  RATE  FILE,  THIS  IS  DONE  SO  THAT 
ORDER  WILL  CORRESPOND  WITH  THAT  UN  THE  OUTPUT  MASTER  AND  D I S  T  R  J ByT  j  ON 


RLAbEL-CHECK, 

IF  LABEL-COUNT  <  1,  AUD  1  TO  LABEL-COUNT# 

(#0  TO  READ-RATE-FILE, 

else 

co  to  close-rate, 

LABEL-COUNT  is  USED  AS  DESCRIBED  Above  FOR  THE  MASTER  RECORD, 


CLOSE-RATE, 

CLOSE  RATE-FILE,  RATE-oUT-FILE, 
CLOSE  THE  FILES, 


End-program  , 
stop  RUN, 

//GO.SySOOI  UU  USNsPcNA,UMASTFll,DjSpr(OLD,KEEP), 
//  UN  I TM SEVEN, , DEFER) , LABEL* ( ,NL>, 

//  UCMsTRTCHsT, VOL*SERs992077 

//G0.SYS0U3  UU  DSn=pcNA.UCaPDIS1,DISP=(OLD,KEEP>, 
//  UNlT:AFF  =  SYSU01,LArHLL=(  ,NL)  , 


HEIR 

FILES, 
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JA,UCAPDIS2,DlSps( NEW, PASS), UNlTs23l4# 

=W,PaSS),UN!Ts2314# 


//  DCt)sTRTCHsT,vOL  =  SE-  =  092409 

/ /GO,  SYSQ05  DU  US\'  =  fC,':A,ur:oSTRAl,DlSPs{OLD,KEcp), 

//  U|\ilT  =  AFh=i>YSuUl,LAL'PL  =  (»?'JL), 

//  DCB  =  T«ICH  =  T,  VL’U  =  S^s992071 
//GO.SySOU,!  DU  US'-sPc\,A,uwaSTFI2,DISP3(NEW,PASS),Un!T  =  23i4, 

//  SpAc==(TRK,200) 

//GO,  SySQC!4  L)U  l' S N s P C M 1 

//  Spacc=(  r«K,2'jO  ) 

//GO,SYS0(j6  Du  USNsPCNA  ,UC0STRA2,DlSps  (NE1. 

//  SpAC£s(TRK,2JC  ) 

//GO.SYSPCH  Ul)  SVoOtjTsR 
/ / S 0 R T  j_  EXfcC  PGN=  JcRP'COOf1 .  REGI  CN  =  1  COK 

UD  DfeNsSvsi,coRTLie|DlSP=SMR 
DU  sysout=a 

SYSOUTsA 

on  UM T 32314, SPACE* (TRk» (150), .CONTJG) 

DU  UNIT323i4,spacEs<TRk,<15C),,C0NT!G) 
UNITb233>4,spac6s(TRk,<15G),,C0NTU'O 

U  N  l  T  =  2  7 1 4 , ?  p  A  c  E  = ( T  U  K  » (150),  »  C  0  N  T  f  G  ) 
tJ  S  N  =  P  C  \  a  (  U  M  a  S  T  F  I  ? ,  D  j  S  P  =  (  0  L  D ,  D  E  L  E  T  R  ) 


//SORTlIB 
//SYSPRINT 
//SYSOUT  DD 
//SORfR<01 
//SGRTw<02 
//SORT  w<03 
/ /SORT W  < Q4 
//SORT  J\ 

//SORTOJT 

// 

//SYSIN  DU 

SORT  FIELUSs<iiU,ch,a> 

/* 

//SORT 2  EXfcC  PGM3lER'JCOOfi,REGION  =  iOOK 


UD 

DD 

DD 

UD 


n  1  *  *  w  u  "  r  '  A  |  U  1  j  I  *  l  f  I  13  1  o  r  "  \  V  L  IJ  #  1J  C  u  t  I  H  J 

SORTOJT  DU  USNsPCv A.UpaStF 13,0 ISP=(CLD,KEEP),Un!t= (TAPE, .DEFER) » 
LABEL=(#bl-)|DCes(»ECFMsFB,BLKSlZE=6C00,LRECLs300>,VnL=SERs99o0O6 
SYSiM  DD  * 


DD  DSNsSYSl,SGRTLI5eDlSP=SHR 
OD  SYSOUTsA 


SYSOUTsA 
Ul) 

DD 
DD 
UD 
UD 
UD 

<BECF 


UN 1T«2314, SPACE* (T*«, <150 > , , CONT I G > 
UNIT*2?i4,spAcEs(TRk, <150),,CONT!G) 

UNIT  =  2Xi<i,spAcEs(TRk,  (150  ,,  CONTI  G) 

JN  IT =2314, SPAcEs ( ThKi (15,0  , .CQNTIG) 
USNsPC''a,DCAPDIS2<DiSP=(0LD,PELETP) 
US»JsPg\AlUCAPD!S3,DlSP=(0LDlKEEp)  ,UN!T=(TAPE,  ,DEFER)  i 
GBs(Rf  CFM  =  FB,BLKSlZE  =  20  0  0,LRECL  =  10  0),VOL  =  SfcR  =  992410 


//SORTLib 
//SYSPRINT 
//SYSOUT  DU 
//SORTw<01 
//SORT  r<Q2 
//SORTWX03 
//SORT  h1  <04 
//SORT  I M 
//SORTOJT 

//  LAB  =  L=(,t>L),UCB 
//SYSlN  DD  * 

SORT  FIELDS=(i,1u,CH,a) 

/* 

//SQRT3  EXEC  PGM* J ERRcOO 0 , REG  l  ON  =  iO OK 

DD  DSNsSVSl ,SORTUIB|DlSP=SNR 
DU  SYSOUTsA 
SYSOUTsA 

UD  UNI Ts2?i4, SPAcEs (TRk, (150 ), .CONTIG) 

UD  JNI  T* 23i4,  SPACE'S  (  TRk,  <150  >,  ,CONT  TO) 

UN  IT =23 14, SPACE: (TRk, (150  >  ,  ,  CONT TO 
dN1T=23i4,RPAcE=(TRk,(150),,C0NT!G) 
liSNsPCYA,UC0STRA2fDiSPs(  OLD,  DELETE) 

DS'^sPC‘- a,  UCORTR  A3,  U  i  SP=(  OLD,  KEEP),  UNlT=  (TAPE,  .DEFER)  , 
//  LABcL=( ^L)  ,DCBs(R£CF«sFa,eLKSlZE  =  40CO,LRECL  =  20  0  ), VOL  =  SER  =  990222 


//SORTlIB 
//SYSPRINT 
//SYSOUT  DU 
//SOR  T  w<  0 1 
//SORT  w<02 
//SORTW<03 
//SORT^<04 
//SORTJN 
//SORTOJT 


DO 

UD 

UD 

UD 


//SVSIN  OD 
SORT  FIELUSsd.iu.CH,  A) 

JOB  control  language  FOR  I N P U T 1 
THE  SETUP  I-  OH  TmE  UTILITY  SORTS 


IS  CONTAINED  IN  THE  JOB  CONTROL  L A N 0 U A 


CONVERSION  COMPLETE,  490  CARDS  PUNCHED, 
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ANNEX  A-2 


INPUT2 


SEQUENCE  1  STARTED  PRINTING  12/04/72  AT  U0041  ON  LPOO 

00  PRINT  »?49*8IRCH*S 

//PCNAIN1  JOB  (352St20M*5.5) *CLASS=I«HEGION=100K 
//COB  EXEC  COBACLG«AREA=qUPEHS 
//COB.SYSIN  DO  • 


00101  IDENTIFICATION  DIVISION, 

00102  PROGRam-Id.  INPUTS, 

00103  AUTHOR.  JEFFREY  BIRCh. 

00104  DATE-COMPILED. 

00105  ENVIRONMENT  DIVISION. 

00106  CONFIGURATION  section. 

00109  INPUT -OUl PUT  SECTION, 

00110  file-cuntrol. 

00111  SELECT  MASTER-FILE 

ASSIGN  TO  UT-S-SYS001, 
00113  SELECT  CAP-DI5TRI 

ASSIGN  TO  UT-S-SYS002. 
00115  SELECT  RATE-FILE 

ASSIGN  TO  UT-S-SYS003. 


SELFCT  DATA-BASE-FILE 

ASSIGN  TO  UT-S-SYS004. 

SELFCT  DICTIONARY-FILE, 

ASSIGN  TO  UR-S-SYSPCH* 

reserve  mo  alternate  area, 

00201  SELECT  PRInTFILE 

ASSIGN  TO  UR-S-SYSPRT , 

RESERVE  NO  ALTERNATE  AREA. 

SELFCT  GA-RATE-HlE. 

ASSIGN  TO  UH-S-SYSRED* 

RESERVE  NO  ALTERNATE  ARtA. 

INPUT?  IS  WRITTEN  IN  ANSI  COHOL. 

IT  UTILIZES  three  INPUT  FILE*  AND  PRODUCES  POUR  OUTPUT  FILES. 


00203 

00204 

00205 

00207 

00208 

00209 

00210 

00211 

00212 


00210 


00220 


DATA  DIVISION. 

FILE  SECTION. 

FD  MASTER-F ILE  * 

recording  mode  is  f, 

BLOCK  CONTAINS  20  RECORDS, 
RECORD  CONTAINS  300  CHARACTERS, 
LArtEL  RECORDS  ARE  STANDARD, 

DATA  RECORD  IS  MASTER. 

01  MASTER, 


02 

MID 

-NAME  o 

03 

MID-NAME?. 

04  MTEC 

PICTURE 

IS 

A  (  4  )  o 

04  MWOKK-CODE 

$ 

05  mPRO 

PICTURE 

IS 

A  » 

05  MSUB 

PICTURE 

IS 

A  o 

03 

MCUST 

PICTURE 

IS 

A  o 

03 

MCUSTn  REDEFINES  MCUST, 

PICTURE 

IS 

V  e 

03 

mnarf 

PICTURE 

IS 

A. 

02 

FILLER 

PICTURE 

IS 

AX  e 

02 

mtms 

PICTURE 

IS 

A ( 15)  • 

02 

FILLER 

PICTURE 

IS 

a<55) t 

0? 

MFIELDA  OCCUHS  5 

TIMES, 
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03  MTQS 

PICTURE 

IS 

<*<4)  . 

03  FILLER 

picture 

IS 

A  <  3 )  , 

03  MTME 

PICTURE 

IS 

V  (4)  . 

03  FILLER 

PICTURE 

IS 

A(3>  « 

02 

M-FILLER1. 

03  MFIELDH  OCCURS 

5  TIMES. 

04  MQTYme 

PICTURE 

IS 

V  (3) , 

04  MNOHM 

PICTURE 

IS 

V  (=,)  e 

04  HQTTnm 

PICTURE 

IS 

V  (3)  . 

02 

M-FILLER2  REDEFINES 

M-F1LLER1. 

03  filler  OCCURS 

5  TIMES. 

04  MQTYMEFT 

PICTURE 

IS 

WQ9, 

04  FILLER 

PICTURE 

IS 

y  <s> . 

04  MQTTnmc  T 

PICTURE 

IS 

y  vq  9. 

02 

filler 

PICTURE 

IS 

Mo5)  . 

FILE  DESCRIPTION  FOR  THE  MASTER  FILE.  SEE  F I GUHF 


00306  FD  CAP-DISTRI, 

RECORDING  MODE  IS  F, 

00308  BLOCK  CONTAINS  2o  RECORDS* 

RECORD  CONTAINS  100  CHARACTERS* 
LAHfcL  RECORDS  ARE  STANDARD* 


00310 

00311 

00401 


DA  I  A  RECORDS  ARE 
01  DISTRIB. 

02  DID-NAME2. 

03  DTEC 
03  DWORK-COOE< 


DISTRIB. 


PICTURE  IS  A ( 4 ) . 


04  DPRO 

PICTURE 

IS 

A  • 

04  OSUU 

PICTURE 

IS 

A  • 

00406 

02 

FILLER 

PICTURE 

IS 

A  • 

00407 

02 

DNARF 

PICTURE 

IS 

A  • 

00408 

02 

dcard-ty 

PICTURE 

IS 

A  « 

00409 

02 

FILLER 

PICTURE 

IS 

A  9 

02 

DFIELDA 

PICTURE 

IS 

A<?7) P 

02 

FILLER 

PICTURE 

IS 

Alft3)  , 

FILE  DESCRIPTION  FOR  THE  DISTRIBUTION  FILE.  SEE  FIGURE  3, 


00414 

00416 

00419 

00420 

00501 


FD  RATE-FILE* 

recording  MODE  IS  F* 

BLOCK  CONTAINS  2o  RECORDS* 
RECORD  CONTAINS  2f?0  CHARACTERS* 
LABEL  RECORDS  AHE  STANDARD* 

data  record  is  kate. 

01  RATE, 

02  RATE-ID. 


file 


03 

R I  dunams?# 

04  RTEC 

PICTURfe 

IS 

AU>  « 

04  RWoRk-CODE. 

C5  tsHRO 

PICTURE 

IS 

A  « 

05  WSU8 

PICTURE 

IS 

Ao 

03 

RFS 

PICTURE 

IS 

X. 

03 

RNaRF 

PICTURE 

IS 

A  • 

02 

RFY 

picture 

IS 

02 

FILLER 

PICTURE 

IS 

A  (AO) 

02 

RFIELOC 

PICTURE 

IS 

A  ( I  45 

02 

FILL 

EH 

PICTURE 

IS 

A  (  5  >  o 

FOR  THE  RAiE  FILE.  SEE  FIGURE  4. 
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FD  DAT a-BASE-FILE* 

RECORDING  MODE  Is  F, 

LABEL  RECORDS  &RE  STANDARD* 

OATA  RECORD  IS  OatA-BASE. 

01  DATa-BASE  PICTURE  IS  A<96). 

FILE  DESCRIPTION  FOR  the  data  BASE  FILE.  SEE  FIGURE  5. 


00617  FD  PRInTFILE* 

,  RECORDING  MODE  IS  F , 

00619  LABEL  RECORDS  aRE  OMITTED* 

00618  RECORD  CONTAINS  1 1?.  CHARACTERS* 

00620  DATa  RECORD  IS  PwiNTALL. 

00701  01  PRInTALL. 


02 

FILLER 

PICTURE 

IS 

A<?>  . 

02 

P-MESSftGE 

picture 

IS 

A  (  &  0  )  * 

02 

p-data 

PICTURE 

IS 

A  (  B )  , 

02 

FILLER 

PICTURE 

IS 

A(H2) • 

file  DESCRIPTION  for  the  print  file. 

USED  TO  DISPLAY  ON  THE  PRINIeR  THE  MESSAGES  CORRESPONDING  TO  EITHER  NO 
DISTRIBUTION  RECORD  Oh  NO  RaTE  RECORD  BEING  FOUND  FOR  A  PARTICULAR 
MASTER  RECORD. 


FD  OICTlONARY-FILEt 

RECORDING  MODE  IS  F, 

LABEL  RECORDS  ARE  OMITTED* 
DATA  RECORD  IS  DICTIONARY. 
01  DICTIONARY, 


02 

dict-id 

PICTURE 

IS 

AX, 

02 

DICT-FS 

PICTURE 

IS 

A  o 

02 

DFILLER1 

PICTURE 

IS 

A, 

02 

DICT-TEC 

PICTURE 

IS 

A  (^)  0 

02 

D I C  T  «■  T  M  S 

Picture 

IS 

A  (  \  5  )  • 

02 

DFILLER2 

PICTURE 

IS 

A(S7) • 

FILE  DESCRIPTION  FOR  THE  DICTIONARY  FILE. 

THIS  IS  A  CARD  FILE  PUNCHED  riY  INPUT?  TO  GIVE  IME  RELATIONSHIP  BETWEEN 
THE  FOUR  CHARACTER  TEC  CODE  AND  THE  NEW  TWO  CHARACTER  DATA  BASE  CODE. 

The  format  for  the  dictionary  cards  is  described  in  reference  b*  Rage  . 


FD  GA-RATE-FILE* 


recording  mode  is  f, 
label  records  are  omitted* 
data  record  IS  Ga-RaTES. 

01  GA-RATES. 

02  GA-INFO  PICTURE  IS  MP5). 

FILE  DESCRIPTION  FOR  THE  CURRENT  G  A  RATE  FILL. 

THE  FORMAT  FOR  THESE  CARDS  IS  DESCRIBED  IN  REFERENCE  6* 
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00703  WORKING  ..STORAGE  SECTION, 


77 

II 

PICTURE 

IS 

77 

JJ 

PICTURE 

IS 

bBQ9. 

77 

KK 

PICTURE 

IS 

77 

I 

PICTURE 

IS 

SO<i9. 

77 

J 

PICTURE 

IS 

6^09. 

A-l  1 


77 

K 

PICTURE 

IS 

byg9« 

77 

L 

PICTURE 

IS 

S4Q9# 

77 

M 

PICTURE 

IS 

*g (4) • 

77 

N 

PICTURE 

IS 

ag (4)  • 

77 

NOT 

PICTURE 

IS 

77 

NRT 

PICTURE 

IS 

vg. 

77 

EOFO 

PICTURE 

IS 

Vo 

77 

EOF  R 

PICTURE 

IS 

V* 

00711  77 

RS* 

PICTURE 

IS 

sgcj* 

77 

HIOH-V 

PICTURE 

IS 

(4) • 

77 

LOW-V 

PICTURE 

IS 

bg (4)  • 

77 

SUh 

PICTURE 

IS 

bg (4) * 

77 

garaTe 

PICTURE 

IS 

bgv9 (4) 

The  above 

LEVEL  77 

variables  are  used  as  subscripts  a 

THERE  PURPOSES  WILL  BE  DESCRIBED  LATER  IN  THE  PROCEDURE 


COUNTERS. 

DIVISION. 


01  idata-record, 

0?  IDATA-ID 
OP  IDATA-FS 
02  IDATA-yR 
02  IOATa-WC 
02  IDATA-C 
02  IDATA-N 
02  IDATA 
02  FILLER 


PICTURE 

PICTURE 

picture 

PICTURE 

PICTURE 

PICTURE 

PICTURE 


IS  ax. 
IS  X, 


IS 

IS 

IS 

IS 

IS 


9. 

AX. 

A  <0 
A  o 

A(R5) * 


storage  area  for  data  base  kecord. 


PICTURE  IS  XXA.  VALUE  IS  SPACES, 


00601 

00603 


01 


INPUT-RECORD. 
02 


INPUT-RECORD  CONTAINS 
MASTER  RECORD. 


IFIELD 

occurs  5  times. 

03 

ISHOPS 

PICTURE 

IS 

A(?7) • 

03 

itqs 

picture 

IS 

9(4)  . 

03 

ITME 

PICTURE 

IS 

9(4). 

03 

IF  IELDB • 

04 

filler 

PICTURE 

IS 

A  (  3 )  . 

04 

I  NORM 

PICTURE 

IS 

S9<5) • 

04 

filler 

PICTURE 

IS 

A  (3)  , 

03 

IREQ 

PICTURE 

IS 

9(4) V99 

03 

IRATE. 

04 

IFIELUC. 

05  I-RATES 

PICTURE 

IS 

9<l3)o 

05  IGA-RATE 

PICTURE 

IS 

9  V  9  (  4  )  » 

05  1-UMRATE 

PICTURE 

IS 

9(G)  „ 

04 

I  TOT -COST 

PICTURE 

IS 

9(7) V99. 

THE  FIVE  DATA  BASE  RECORDS  CORRESPONDING  TO  EACH 


01  OF  I FLO  PICTURE  IS  a(?7). 

OFIELD  CONTAINS  NINE  THREE  CHARACTER  FIELDS  REPRESENTING  THE  NINE  SHOP 
CATEGORY  DISTRIBUTION  FACTORS. 


01  MIO-RATE. 

02  MPSCNF. 
03  MWC 


PICTURE  IS  A<?) , 
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03  MFUSO  PICTURE  IS  A. 

03  MNAR  PICTURE  IS  a. 

MID-RaTE  IS  A  FOUR  CHaRCATF.w  IDENTIFICATION  MADE  FROM  MASTER  RECORD  VARIABLES 
AND  IS  USED  TO  LOCATE  THE  ASSOCIATED  HATE  RECORD  STORED  IN  COST-TABLE. 


00713  01  MSOrT-KEY. 

00714  02  MTEC-SK  PICTURE  IS  AU), 

02  MS-KEY. 

03  MWORK-CCot-SK  PICTURE  IS  AX. 

03  MNARF-SK  PICTURE  IS  A. 

MSORT-KEY  IS  USEO  TO  LOCATE  DISTRIBUTION  RECOKUS  IN  THE  DISTRIBUTION 

table  (d-table<» 


01  COST-TABLE, 

02  COST-REC  OCCURS  300  TIMES, 


03 

COST 

-ID. 

04 

CWORk-CODE. 

05  cpRo 

PICTURE 

IS 

A  • 

05  CSUB 

PICTURE 

IS 

A  • 

04 

Cfs 

PICTURE 

IS 

A  • 

04 

cnahf 

PICTURE 

IS 

A  • 

03 

cfy 

PICTURE 

IS 

03 

CFIELOC; 

04 

COST-HATES 

OCCURS  5 

1  TIMES 

05  COST-DATA, 

nb  CDIRLAHCT 

PICTURE  IS  99999. 

06  COIRMAlFJ 

PICTURE  IS  999V99. 

06  cproovmd 

PICTURE  IS  99V99* 

05  CUAOVHD 

PICTURE  IS  V9v99» 

05  CUNIMAT 

PICTURE  IS  9(6). 

05  COFM 

PICTURE  IS  9(6) . 

COST-TABLE  IS  USED  TO  STORE  UP  TO  300  RATE  RecunoS. 

They  are  those  rate  records  with  programs  equal  to  f»  h.  l»  p»  r*  v»  or  y. 


01  Dis-TABLE. 

02  DIS-REC  OCCUHS  50  TIMES. 
03  OT-ID. 


04  DTWOhk-CODE. 


05  Of PRO  PICTURE  IS  A. 
05  OTSUB  PICTURE  IS  A. 


04  DTNAHF  PICTURE  IS  a. 

03  DTFIELC'A,  PICTURE  IS  a<?7). 

OIS-TABLE  CONTAINS  UP  TO  50  DISTRIBUTION  RECONUS, 7HLY  A«E 
THOSE  DISTRIBUTION  RECORDS  wITh  PROGRAMS  EQUAL  To  F»  H»  OR  L. 


01  P-TO-NAME2, 

02  P-TEC  PICTURE  IS  AU), 

02  P-W-C  PICTURE  IS  A ( ? ) « 

P-I0-NAME2  CONTAINS  THE  TEC , PROGRAM . AND  SUbPROuKaM  REPRESENTING  THE  MOST 
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RECENTLY  USED  MASTER  RECORO. 


01  O-HUFFER. 

02  D-B-ID2  PICTURE  IS  A<6). 

02  0-6-N  PICTURE  IS  A. 

02  O-B-UATA  PICTURE  IS  a<?7). 

O-BUFFER  IS  AN  INTERMEDIATE  sT ORAGE  AREA  FOR  T rt£  PRIMARY  DATE  REPRESENTING 
THE  CURRENT  DISTRIBUTION  RECORD  IN  CORE* 


01  DATABLE. 

02  D-DATA  OCCUwS  12  TIMES, 

03  D-T-IDc 

04  0-T-ID2  PICTURE  IS  A<6), 

04  0-T*n  PICTURE  IS  A, 

03  D-T-OATA  PICTURE  IS  A(?7>. 

O-TABLE  IS  USED  TO  STORE  UP  TO  12  OlSlRIBUTlON  HECORQS, 

ALL  RECORDS  SToREO  IN  D-TaBLE  HAVE  IDENTICAL  VaUIES'FOR  THE  VARIABLES  TEC* 
PROGRAM  AND  SUBPROGRAM. 


01  R-HUFFER. 


02 

R-8- ID. 

03  R-B-ID2 

PICTURE 

IS 

^  ( 6 )  • 

03  R-0-FS 

picture 

IS 

A  • 

03  R-B-N 

PICTURE 

IS 

02 

R-B-FY 

PICTURE 

IS 

02 

R-B-FIELDC 

PICTURE 

IS 

A(145) 

R-BUFFER  IS  AN  INTERMEDIATE  sTqrage  AREA  FOR  THE  CURRENT  RATE  RECORD  IN  CORE 


01  R-TABLE, 

02  R-DATA  OCCUwS  24  TIMES. 


03 

H-T-ID, 

04  R-T 

-IIJ2 

PICTURE 

IS 

A(6)  . 

04  R-T 

‘"PS 

PICTURE 

IS 

A. 

04  H-T«*n 

PICTURE 

IS 

A  • 

03 

r-t-fy 

PICTURE 

IS 

99. 

03 

R-T-FlELnC. 

Oa  R-T 

'“FIELDS 

OCCURS  s 

;  TIMES* 

05 

M™T “RATES  « 

Ob  RDLC 

PICTURE 

IS 

99V 99? 

06  ROM 

picture 

IS 

996V99. 

06  RPO 

PICTURE 

IS 

99V99  » 

05 

KG  AO 

* 

PICTURE 

IS 

99V99* 

05 

BUM 

PICTURE 

IS 

9(6)  , 

05 

hgfm 

PICTURE  IS  9<M , 

R-TABLE  IS  USED  TO  STORE  UP  TO  24  RATE  RECORDS  ALL  WITH  IDENTICAL  VALUES 
of  the  variables  tec*  program*  and  subprogram. 


01  IDENT, 


A-14 


02  IDEN1  PICTURE  IS  A. 

02  IDEN2  PICTURE  IS  A. 

IDENT  CONTAINS  THE  CURRENT  vaLuE  OF  the  DATA  base  cOOE. 


01  NEW-CODE2. 

02  FILLEH  PICTURE  IS  M351*  VALUE  IS 

FABCUEFGHI  JKLMN0POHSTijVWXYZ1234S6709*. 

01  NEw-CODE  REOEFiwtS  NF.W«C0OE2« 

02  N-C  OCCURS  3s  TIMES  PICTURE  IS  A. 

THE  ABOVE  VARIABLES  ARE  UStO  IN  COMPUTING  THE  UATA  BASE  CODE. 


01  FUNO-SOURCE-ARRAYo 


02  FILLER 

F 1  ANA? ANA3A  A4FPASh  AftL 
02  FILLER 

A* A  AAA  ABA  ACa  ADA 
02  FILLER 

Y  U.Y  DJY  DKA  ALn  AMP 


PICTURE  IS  M40) « 
A?T  Cal  C9T  C=T  Aif • 
PICTURE  IS  AU0)» 
AEA  AFA  AGANAHA  At*. 

PICTURE  IS  MAO)  * 
ENT  EOA  APN  AWA  A*. 


VALUE  IS 
VALUE  IS 
VALUE  IS 


02  FILLER  PICTURE  IS  MAO)*  VALUE  IS 

FRP  C(V  I$V  E  N  I/R  ISL  ATP  EULPAVR  A«L  A* • 

02  filler  Picture  is  aim),  value  is 

FXR  AYR  A?!. 

01  F-S-ARRAY  REDEFINES  FUND-SOURCE-ARKAY. 

02  SUB-PRO  OCCURS  42  TIMES, 

03  F-S  OCCURS  4  TIMES, 

PICTURE  IS  A. 

THE  ABOVE  VARIABLES  ARE  USEo  IN  COMPUTING  THE  FUND-CODE  FROM  THE  VARIABLES 
CUSTOMER,  PROGRAM*  AND  SUBPROGRAM. 


SEE  FIGURE  6. 


01  ga-rate-table. 

02  ga-rate-t  occurs  7  times, 

03  GA«R«T  OCCURS  5  TIMES, 

PICTURE  IS  vvg(4). 

GA-RATE-TA8LE  IS  USED  TO  STORE  THE  CURRENT  G  A  haTE  CARDS. 

THESE  CARDS  REPRESENT  tHE  MosT  CURRENT  G  A  RATES  AVAILABLE  FOR  THE  NARFS. 


00804  PROCEDURE  DIVISION, 


00806  OPEN  INPUT  MASTEh-FRE*  CAP-DlSTRl.  HaTE“FILE, 

OPEN  INPUT  GA-RATE-RLE, 

OPEN  OUTPUT  DaTa-BaSE-FILE*  PRINTFILE. 

OPEN  OUTPUT  DICTlONAKY-FILE. 

MOVE  QUOTE  TO  F"S  <34*  l)« 

MOVE  ZEROS  TO  R-BUFFER*  D-UURER*  RSw,  EOFD*  EOFR. 
MOV?  SPACES  TO  DFILLE«1*  OP ILLER2, 

MOVE  SPACES  to  P-1D-NAME2. 

MOVE  SPACES  TO  PPINTALL, 

MOVE  1  TC  L*  K,  II*  JJ»  M,  N, 

MOVE  1  TO  I* 

STEP  1.  INITIALIZATION  STEP. 


MOVE-GA-RATE. 
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READ  GA-RATE-FILE*  AT  END  GO  To  REao-DISTR. 

MOVE  GA-INFO  TO  (SA-RATe-T  (I), 

IF  I  <  7 »  AOU  1  TO  I*  GO  TO  MUVE-GA-RATE. 

STEP  2.  THE  CURRENT  G  A  RATE  CARDS  ARE  READ  INTO  THE  GA-RATE-TA8LE . 


00901  READ-OISTR. 

00902  READ  CAP-DISTRI*  aT  FND  GO  TO  END-PROGRAM. 

IF  nTEC  =  SPACES  MOVE  D*ORK-CODfc  To  OTUORK-COOE  (N)» 

MOVE  DNARF  TO  0  I NARF  * (N) t 

'  MOVE  DFIELDA  TO  OTFIEUCA  (N) t 

ADD  1  TO  Nt  GO  TO  REAO-DISTR. 

MOVE  DID~NAME2  To  D-B-ID2. 

MOVE  DNARF  TO  0"w-N. 

MOVE  DFIELOA  TO  O-B-DATA. 

STEP  3.  These  INSTRUCTIONS  MOVE  THE  DISTRIBUTION  records  with  the  SPECIAL 
PROGRAM  VALUES  OF  F *  H*  OR  L  INTO  OlS-TABLE. 

ALSO*  THE  IDENTIFICATION  OF  IHe  Fjh'ST  RECORD  ON  THE  DISTRIBUTION  FILE 
WITH  TEC  NOT  EoUAL  TO  SPACES  IS  STORED  IN  0-BUFFFR* 

N  IS  THE  NUMBER  OF  SUCH  DISTRIBUTION  RECORDS  IN  OIS-TABLE. 


01017  READ-RATE. 

01018  REAO  RATE-FILE »  aT  END  GO  TO  END-HROGRaM. 

IF  RTEC  =  SPACES  MOVE  RWORK-CODE  TO  CWORK-CODE  <M) * 

MOVE  RFS  TO  CFS  (M) . 

MOVE  RNARF  TO  CNARF  (M)t 
MOVE  RFY  TO  CFY  (M) * 

MOVE  HFIELDC  TO  CFIELDC  (M) » 

ADO  1  TO  M|  GO  TO  REAO-RAlE* 

MOVE  RATE-ID  TO  R-B~ID, 

MOVE  RFY  TO  R-B*F Y • 

MOVE  RFIELDC  To  R-8-FlElDC. 

STEP  3.  THE  haTE  RECORDS  with  THE  SPECIAL  PROGRAM  VALUES  OF  F»  H»  L»  P» 

R»  Vi  OR  Y  ARE  READ  INTO  COST-TABL£«  ALSO,  THE  IDENTIFICATION  OF  THE  FIRST 
RECORD  ON  THE  RATE  FILE  WITH  TEC  NOT  EQUAL  TO  SPACES  IS  STORED  IN  R-BUFFER. 
M  IS  THE  NUMBER  OF  SUCH  RATE  RECORDS  IN  COST-TahlE. 


00809  READ-masTER-FILE. 

00810  READ  MASTER-FILEi  AT  END  GO  TO  END-PROGRAM. 

IF  MTEC  =  ZEhoSi  GO  TO  READ-MaSTER-FILE. 

IF  MTEC  =  SPACES*  GO  To  READ-maSTER-FILE. 

00811  MOVE  MTEC  TU  MTec-SK. 

00812  MOVE  MWORK-CODE  TO  MWORK-CODE-SK. 

00813  MOVE  MNAHF  TO  MNARF-SK. 

MOVE  MrtORK-CODE  TO  IDATA-WC. 

MOVE  MCUST  TO  IOa1A~C« 

MOVE  MNAHF  TO  iDatA-N® 

EXAMINE  MASTER  REPLACING  ALL  SPACES  HY  ZEROS. 
MOVE  l  TO  KKi  K . 

STEP  4.  ONE  MASTER  RECORD  IS  READ  OFF  THE  MASTER  FllE. 

THE  DISTRIBUTION  RECORD  IDENTIFIER  IS  STORED  In  mSORT-KEy, 


CHECK-NARF, 

IF  MNARF  = 
ELSE 
IF  *K  < 


N»C  IKK) *  GO  TO  MOVt-FlELDSi 
35*  ADD  1  TO  KKi  GO  TO  CHECK-NARF • 
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CONVENTS  The  NflRF  CODE  FROM  A  LETTER  (A-G<  TO  a  NUMBER 


00816  MOVE-FIELDS. 

MOVf  mTOS  (K)  TO  [TqS  (k>. 

MOVE  MTME  <K>  to  ITme  (K)  . 

00818  MOVE  MFIELOB  (K)  TO  IFIELOB  (K) » 

IF  MPRO  =  £F*  Ok'  FhF  OR  MPHO  = 

COMPUTE  IREO  (K>  =  (MUTYMEFT  <K>  «  MTME  (K) )  ♦ 

(MQTYNMFT  (K)  «  (MTQS  (K)  -  MTME  (K) ) ) » 

ELSE 

COMPUTE  IREO  <K)  =  (MQTYME  (K)  ♦  MGTYNM  (K)), 

00819  IF  K  <  5*  Am)  1  TO  K» 

O0B20  '  GO  To  MOVE-FIELDS. 

CERTAIN  FIELDS  ARE  MOVED  DlHtCTLY  FROM  THE  MaSIER  RECORD  TO  CORRESPONDING 
FIELDS  IN  INPUT-RECORD. 

THEY  WILL  LATEW  BE  MOVED  TO  EACH  DATA  RASE  RECUKR. 

ALSO.  THE  REQUIREMENT  VARIAhlE  IS  COMPUTED. 


COMPUTE-FUND-COOE. 

IF  mCUST  =  !»0*>  MOVE  TO  IOaTa-FS* 

GO  TO  END-F-S. 

IF  mCUST  s  Fn**  MOVE  FOA  TO  IUATA-FS* 

GO  TO  END-F-S. 

IF  mcUSTN  IS  NUMfeHlc  AND  MCUSTN  NOT  <  1 
GO  TO  COMPuTE-F-c. 

IF  MCUST  IS  ALPwahETIC  AND  MCUST  >  OR  =  *A*  AND  MCUST  IS 
4  ^  I A  OR  *• 

GO  TO  COMPUTE*»F*C e 
ELSE 

GO  TO  SET-FS-E-U. 

COMPUTE-F-C. 

MOVE  1  TO  I*  J. 

CHECK-SuB-PROGRAM. 

IF  MSUB  =  F-S  (I»  I)  ♦ 

GO  TO  CHECK-PROGRAM. 

IF  I  <  42*  auD  1  TO  1*  GO  TO  CHECK-SUB-PROGRAM 

ELSE 

GO  TO  SET-FS-E-U. 

CHECK-PROGRAM, 

ADO  1  TO  J, 

IF  F-S  (I*  J)  =  t  GO  TO  FINAL-CHECK. 

IF  MPRO  a  F*s  (I*  J>*  MOVE  F-S  <1*  4)  TO  IDATA-FS* 

GO  TO  END-F”S* 

ELSE 

IF  J  <  3*  GO  TO  CHECK-PROGNam, 

FINAL-CHECK. 

IF  MSUB  =  ^L^  AND  MPRO  s  *A*, 

MOVE  TO  IUATA-FS*  GO  TO  ENU-F-So 

set-fs-e-u. 

MOVE  TO  IDaTa-FS. 

END-F-S. 

MOVF  IDATA-FS  TO  mCUST, 

STEP  5*  COMPUTATION  OF  THE  l-UNO-CODE  USING  COMHINaTIONS  OF  THE  CUSTOMER* 
program*  subprogram  from  the  master  RtcoRo. 
these  combinations  are  REPRESENTED  in  FUGURE  6. 
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IF  MPRO  a  FFs  OH  tHt.  OH  MPRO  *  tl* 

GO  TO  INT-aS-nlS. 

IF  MID-NAME2  =  P-I0-NAHE2*  GO  To  SEARCH-D-TAOLE. 

STEP  6.  CHECKS  THE  MASTER  hECORD  PROGRAM  VALUE  FOR  F*  H,  OR  L. 

IF  EQUAL  TO  ONE  OF  THE  ABOVE  VALUES  THE  DlSTRIrtUTlON  TABLE*  DlS»TA8LE» 

IF  NOT  EQUAL  To  ONE  OF  THE  ABOVE  VALUc.5*  The  DISTRIBUTION  TAPE 
IS  SEAHCHEO  R V  FIRST  FETCHING  ALL  DlSJRlBUTION  HFCOHDS  FROM  THE  TAPE  FILE 
WITH  TEC*  PROGRAM*  AND  SUBPROGRAM  EQUAL  TO  THOSE  VaLUES  ON  THE  CURRENT 
MASTER  RECORD  AND  STORING  THEM  IN  D“TARLE. 

if  The  values  of  tfc*  program,  and  suhprogram  from  the  previous  master 
RECORD  are' EQUAL  to  Those  OF  The  CURRENT  MaSTEH  record  then  it  is  assumed 
that  if  the  APPROPRIATE  DISTRIBUTION  RECORD  FOH  the  CURRENT  MASTER  RECORD 
EXISTS  IT  IS  ALREADY  IN  D-TahLE. 

if  The  previous  master  record  values  are  not  euual  to  those  on  the 

CURRENT  MASTER  HECOHD  AND  The  CURRENT  MASTER  HtCORD  PROGRAM  VALUE 

IS  NOT  F «  H*  uw  L  THEN  D-TAhLE  MUST  BE  INITIALIZED  TO  ZERO  AND  PEFILLEO  WITH 

NEW  DISTRIBUTION  RECORDS  CORRESPONDING  TO  THE  CURRENT  MASTER  RECORD. 


LOADED-TABLE . 

MOVE  ZERO  TO  NQT. 

EQUAL-ID. 

IF  MID-NAME2  >  D-B-ID2*  GO  TO  KEAO-OIS. 

IF  MID-NAME2  =  0-B-ID2*  ADD  1  TO  NOT « 

MOVE  D-B-102  TO  D-T-ID2  (NOT)* 

MOVE  D-B-N  TO  D-T-N  (NDT>* 

MOVE  D-B-DaTa  TO  D-T-DATA  (NDT) » 

GO  TO  READ-OIS. 

GO  TO  LOAD-R-T ABLE. 

READ-DIS. 

IF  EOFD  s  I*  Go  TO  LOAD-h-TABLE • 

READ  CAP-OISTRI*  aT  END  MOVE  1  TO  EOFn»  GO  TO  LOaD-R-T ABLE . 

MOVE  OID-NaML?  To  U-B-ID2. 

MOVE  DNARF  TO  O^R-N, 

MOVE  DFIF.LDA  TO  U-B-OATA. 

GO  TO  EQUAL-ID. 

STEP  6.  THESE  INSTRUCTIONS  FILL  D-TahLE  wITH  ALL  DISTRIBUTION  RECORDS  WITH 
TEC*  PROGRAM.  AND  SUBPROGRAM  EQUAL  TO  THOSE  VaLUfS  IN  THE  CURRENT  MASTER 

record,  the  result  of  this  is  that  if  the  workload  for  a  particular 
tec*  PROGRAM*  SUBPROGRAM  is  ASSIGNED  jo  more  Than  one  drp  then  all 
distribution  RECORDS  for  THE  different  orps  will  be  in  d-table  at 
THE  Same  TIME. THE  counter  not  REPRESENTS  The  NUmhEM  of  distribution 
RECOROS  IN  D-TaBLE. 


LOAD-R-TABLE. 

move  ZERO  TO  NR] . 

EQUAL*>H!D. 

IF  MID-NAME2  >  R-B-ID2*  GO  TO  KEAD-RATE2. 

IF  M I D-NAME2  =  R-6-ID2*  ADD  1  10  NRT* 

MOVE  R-B-IO  TO  R-T-IO  (NRT) » 

MOVE  R-8-FY  TO  R-T-FY  (NRT). 

MOVE  R-B-FIELOC  TO  R-T-F IELDC  (NRT). 

GO  TO  REA0-RA7 fc’2 « 

GO  TO  SEARCH-D-TahLE. 

READ-RATE2. 

IF  FOFR  =  1*  GO  TO  SEARCH-D-TahLF . 

READ  HATE-FILE «  aT  END  MOVE  1  TO  EOrH,  60  TO  SEARCHED- TABLE. 

move  rate-id  to  R-B-ID. 
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MOVE  rfy  To  R-B-FY. 

MOVE  RFIELDC  To  H-B-FlELDC. 

GO  TO  EQUAL-RID. 

step  ?.  these  instructions  fill  r-tagle  with  hate  records  with  rate 
variables  of  tec.  program,  subprogram  equal  to  those  values  from  the 
master  record  and  with  rate  PROGRAM  VARIABLE  EuuaL  to  a.  n»  oR  t." 
the  counter  nht  is  the  number  of  rate  records  in  r-taglc-. 


search-o-table, 

'MOVE  1  TO  L« 

IF  NOT  =  ZERO.  GO  TO  NO-MATCH-U. 

CHECK-KEY-DIS, 


IF  MSORT-KEY  S  D-T-ID  <L>» 

MOVE  D-T-OaTa  (L)  TO  DFItLD,  GO  TO  SET-I-D, 

IF  L  <  NUT.  aOd  1  TO  L.~  GO  TO  CHECK-KEY-DIS, 
NO-MATCH-D. 

MOVE  1  TO  RSW,  HO  TO  FIND-RATE. 

STEP  6.  SEARCH  O-TABLE  FOR  THE  DISTRIBUTION  HtCORD  WITH  THE  SAME  DRP 
AS  THE  MASTER  hECORD. 

RSW  IS  Set  TO  l  IF  NO  MATCH  IS  FOUND. 


SET-I-O. 

00914  MOVE  1  TO  I. 

move-shops. 

MOVE  OFIELD  TO  ISHOPS  (I). 

IF  I  <  5.  AOD  1  TO  I,  GO  To  MOVE-SHOPS. 

01003  ELSE  ' 

01004  GO  TO  FINO-RaTE. 

STEP  6.  WHEN  a  MATCH  IS  FOunD  IN  OIS-TABLE  OR  O-TaBLE  THE  DISTRIBUTION 

factors  for  five  years  are  moved  from  the  table  to  input-record. 

LATER  THEY  WILL  BE  MOVED  TO  THE  DATA  BASE  RECORDS. 


INT-BS-DIS. 

MOVE  1  TO  SUB, 

BS-DIS. 

if  ms-key  =  ot-id  (sue),  move  utfielda  (sub)  to  ofield, 

GO  TO  SET<“I-o. 

IF  SUB  <  N.  «DD  1  TO  SUB,  GO  1 0  BS-DIS® 

MOVE  1  TO  RSw.  GO  TO  FIND-RATE. 

search  dis-tahle  for  the  appropriate  distribution  record, 
the  search  variables  are  program,  subprogram, and  na«f® 


print-ehror. 

IF  RSW  =  ZERO,  go  TO  WRITF-INPUT-FILE. 

IF  HSW  =  1  Oh  3.  GO'TO  PRInT»0« 

ELSE 

GO  TO  PRINT-R® 

PRINT-O. 

MOVE  *NO  DISTRIBUTION  RECORD  EXISTS  FOR*  TO  P-MESSAGE. 
movf  mid-name  to  p-daTa, 

WRITE  PRINTALL. 

IF  RSW  =  It  GO  TO  WRITE-INPUT-FILE, 

PRINT-R. 

MOVE  *NO  Rate  RECORD  exists  for*  TO  p-message. 

MOVE  MID-NAME  TO  P-daTa. 
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WHITE  PHINTALL# 

WRITE  MESSAGES  RELATING  To' no  DISTRIBUTION  OR  NO  RaTE  RECORDS  EXISTING 
FOR  THE  CURRENT  MASTER  RECORD  ONTO  The  PRINTE«. 


01014  WRITE-InPUT-FILE. 

MOVE  1  TO  J. 

IF  R-TEC  =  '  MTEC  GO  TO  MOVE-NEw-CODE* 

MOVE  N«C  < 1 1 >  TO  IDENIi 
MOVE  N-C  <JJ)  TO  IDEN2, 

’  MOVE  IDENT  To  DICT-IO* 

MOVE  IDATA-FS  To  DICT-FS* 

MOVE  MTEC  TO  0ICT-TEC» 

EXAMINE  MTmS  hEPLACING  ALL  ZEROS  RY  SPACES* 

MOVE  MTMS  TO  ulCT-TMS* 

WRITE  DICTIONARY* 

IF  JJ  <  35,  ttDO  1  TO  JJ» 

ELSE  ADO  1  TO  II*  MOVE  1  TO  JJ. 

MOVE-NFw-CODE. 

MOVE  IDENT  TO  ID6TA-ID. 

SET"0A I A“REC « 

MOVE  IFIELD  (J)  TO  IDATA. 

MOVE  J  TO  IDATa-VH. 

WRITE  DATE-BASE  FROM  IDaTA-RECORD. 

IF  J  <  5* 

ADD  1  TO  J*  GO  TO  SET-DAT A-hEC. 

move  zeros  to  input-record. 

MOVF  MID-NAKE2  To  P-ID-NAME2, 

MOVE  ZERO  TO  RSw. 

01016  GO  TO  REAO-MASTeh-FILE. 

STEP  <5  AND  10.  MOVE  THE  FIVE  DATa  BASE  RECORDS  CONTAINED  IN  INPUT-RECORD 
TO  0ATA-8ASE-FILE.  THIS  IS  DONE  AFTER  THE  DATA  RASE  CODE  HAS  REPLACED 
The  TEC  CODE.  the  PROGRAM  THEN  BRANCHES  BACK  10  READ  ANOTHER  MASTER 
RECORD*  WHICH  rECOMES  THE  CdhRENT  MASTER  RECOKO. 


FIND-RATE. 

IF  MPRO  a  FA*  OR  #N*  OR  MPRO  a  *T* 

GO  TO  SEARCH-N-TABLE? 

ELSE 

MOVE  MWORKoCODE  To  M«c» 

MOVE  IDATA-FS  TO  MFOSO* 

MOVE  MNARF  TO  MNAR* 

GO  TO  INT»bS«HATE. 

SEARCH-H-TABLE. 

MOVE  l  TO  L» 

IF  nRT  =  ZERO*  60  TO  NO-MATCH-R. 
CHECK-KEY-RATE. 

IF  MID-NAME  a  R-T-ID  <L) »  GO  TO  SET-I-R. 

IF  L  <  NRT*  ADD  1  TO  L*  GO  TO  CMEC*-KEY-RaTE* 
NO-MATCH-R. 

IF  HSW  e  l,  MOVE  3  TO  RSW 

ELSE 

MOVF  2  TO  RSW. 

GO  TO  PRINT-ERRQh, 

set-i-k. 

MOVE  1  TO  I» 

move-r-eielos. 

MOVE  R-T-RaTES  (L*  I)  TO  I«>RATES  (1). 
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MOVF  RUM  (L»  I)  TO  I-UMRATE  (I). 

IF  KK  <  0.  muVE  Ga-R-T  (KK.  I)  TO  GARATEt  IGA-RATE  (I), 

ELSE 

MOVE  RGAO  (L«  I)  TO  IGA-RATE  (I).  GARATE* 

IF  MNORM  ( I >  =  ZERO.  MOVE  ZERO  TO  ifOT-COST  (I)* 

GO  TO  ALTFR-I-J. 

COMPUTE  IToT-COST  (I)  ROUNUEO  = 

(  (HnLC  (Lt  I)  ♦  KpO  (L*  I)  *  GARATE)  °  MNORM  ( I }  ) 

♦  RUM  <L*  I>  o 
ALTER-I-J. 

IE  I  <  5*  Anu  1  To  In  GO  TO  mOVE-R-FIELOS* 

GO  TO  PRINT-ERROw.  '  "  ' 

step  e«  if  The  master  program  is  equal  to  a «  w.  or  t  then  search  r-tAble 
For  the  APPROPRIATE  Rate  RECORD.  the  SEARCH  VARTA8LES  are  tec.  program, 
subprogram,  fund-code,  AND  OkP »  .  .. 

IF  A  MATCH  IS  FOUND  THE  RaTes'FROM  the  rate  record  are  used  TO  COMPUTE 
the  total  COST  Variable  For  each  ofthe  FIVE  DaTa  base  records. 

WITH  THE  EXCEPTION  THaT  IF  JhE  RATE  RtCORD  REPRESENTS  A  NARF  THE  G  A  RATE 
FOR  THAT  NARF  AND  YEAR  ARE  TaKEN  FROM  THE  GA-HaTF-T ABLE  CONTAINING 
THE  CURRENT  G  A  RATES, 


INT-BS-WATE « 

MOVE  1  TO  SUB, 

BS-RATE. 

IF  mPSCNF  a  COST-ID  (SUB).  60  To  SET-I-RATE. 

IF  SUB  <  M»  aDD  1  TO  SUB.  GO  TO  BS-RATE. 

GO  TO  NO-MaTch-R. 

SET»I«HaTE, 

move  1  TO  1. 

01210  COM-COST-FJ. 

move  COST-DATA  (sub,  I)  TO  I-RATES  (I). 
move  CUNIMAT  (SUM,  I)  TO'l-UMRATE  (i). 

IF  KK  <  6,  MOVE  Ga-R-T  (KK,  I)  TO  GARATE,  IGA-RATE  (I). 

ELSE 

MOVE  CGAOVHD  (SUh,  I)  TO  GARATE,  IGA-RATE  (I), 

COMPUTE  IToT-COST  (I)  ROUNDED  s 

(CUIRLABCT  (SU0.  I)  «  COIRMATFJ  (SUti,  I)  «  CPROOVhD  (SUB.  I) 
♦  GARATE)  «  MNORM  (I). 

IF  I  <  5,  Am)  1  TO  I. 

GO  TO  COM-COST-FJ, 

ELSE 

GO  TO  PRINT-ERROn. 

search  cost»tahle  for  the  Rate  record  if  The  master  program  variable 

IS  EQUAL  TO  F»  H,  L,  P»  Re  V,  OR  Y.  AS  IN  12  ABOVE  IF  A  MATCH 
IS  FOUND  THE  RaTES  ARE  USED  TO  COMPUTE  THE  TOTAL-COST  VARIABLE  FOR 
The  FIVE  DATA  RASE  REcOROS. 

SIMILARLY,  if  the  RATE  RECORD  REPRESENTS  A  NARF  THE  G  A  RATE  IS  TAKEN 
FROM  GA-RATE-) ABLE. 


01214  END-PROGRAM. 

01218  CLOSE  MASTER-FILE.  CAP-DlSTRI,  RATE-FILE* 

DATA-BASE-FILE.  PHINTFILE.  OlCTIONfiwY-F ILE. 
CLOSE  GA-RATE-FILE. 

CLOSE  THE  FILES. 


STOP  RUN. 
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//GO.SYSOOi  on  0SN=PCNA.UMASTFI3«D1SP*C0LD»KE;EH) ,UnIT»(TaPE»*DEFER) * 
//  LABELs  («  SL)  »  VOl.aSER  [990006 

//GO.SYS002  01)  0SN=PCNA.UCAP|)IS3*0ISP"<0L0»KEEP)  .UNIT» « TAPE* eDEFEH) » 
//  LABEL=(»5iL)  »V0L-ScR=yo2410 

//G0.SYS003  DO  0SN=PCNA.UC0bT«A3»0lSPs(0LD,KEEP) ,UnITs (TaPE, ,DEFE«) * 
//  LABEL=  ( «SL>  »V0L-SER=99U2H2 

//GO.SYS004  00  DSN=PCN’A.UnATABASsDlSPa  (OLO«KEEP>  *UNlT»  (TAPE#  t DEFER)  * 

//  LABEL=  ( »SL)  tV0Lr.SEP»yv2299 

//GO.SYSPBT  DO  SYSO'JT^A 

//GO.SYSPCH  Of)  SYSOUT-B 

//GO.SYSREO  DO  * 

THE  CURRENT  G  a  rate  cards  go  follow. 


4460046994460544690746178 
399304 1273397 0 33903630 589 
4449  143666440524641346561 
4895649666467624302442946 
5233655662573176014559197 
3346537 02 1344HH345 1533431 
4836552678550665682656287 
/« 
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APPENDIX  B 


FORMAT  OF  RECORDS  IN 
INPUT  AND  DATA  BASE  FILES 


TABLE  B-1 


MASTER  FILE 


Card  column 

Variable 

Length 

1-4 

TEC 

4 

5 

Program 

1 

6 

Subprogram 

1 

7 

Customer 

1 

8 

NARF 

1 

9-10 

Filler 

2 

11-25 

Type  Model  Series  (TMS) 

15 

25-42 

Type 

17 

43-57 

Eng  #1  TMS 

15 

58-61 

Filler 

4 

62-76 

Eng  #2  TMS 

15 

77-80 

Filler 

4 

81-84 

Total  Quantity  Service  (TQS)  Year  1 

4 

85-87 

TQR-AFL  Year  1 

3 

88-91 

Total  Mission  Essential  (TME)  Year  1 

4 

92-94 

MER-OME  Year  1 

3 

95-98 

TQS  Year  2 

4 

99-101 

TQR-AFL  Year  2 

3 

102-105 

TME  Year  2 

4 

106-108 

MER-OME  Year  2 

3 

109-112 

TQS  Year  3 

4 

113-115 

TQR-AFL  Year  3 

3 

116-119 

TME  Year  3 

4 

120-122 

MER-OME  Year  3 

3 

123-126 

TQS  Year  4 

4 

127-129 

TQR-AFL  Year  4 

3 

130-133 

TME  Year  4 

4 

134-136 

MER-OME  Year  4 

3 

137-140 

TQS  Year  5 

4 

141-143 

TQR-AFL  Year  5 

3 

144-147 

TME  Year  5 

4 

148-150 

MER-OME  Year  5 

3 

151-153 

Quantity  Mission  Essential  (M/E)  Year  1 

3 

154-158 

Norm- Factor  Year  1 

5 

159-161 

Quantity  Mission  Non-Essential  (M/N)  Year  1 

3 

162-164 

M/E  Year  2 

3 

165-169 

Norm- Factor  Year  2 

5 

170-172 

M/N  Year  2 

3 

173-175 

M/E  Year  3 

3 

176-180 

Norm-Factor  Year  3 

5 

181-183 

M/N  Year  3 

3 

184-186 

M/E  Year  4 

3 

187-191 

Norm- Factor  Year  4 

5 

192-194 

M/N  Year  4 

3 

195-197 

M/E  Year  5 

3 

198-202 

Norm-Factor  Year  5 

5 

203-205 

M/N  Year  5 

3 

206-300 

Filler 

95 

B-1 


TABLE  B-2 


CAPACITY  AND  DISTRIBUTION  FILE 


Card  column 

Variable 

Length 

Capacity  Record 

1-5 

Filler 

5 

6-7 

Fiscal  Year 

2 

8 

NARF 

1 

9 

Card  Type  (=5  for  capacity  record) 

1 

10 

Filler 

1 

11-17 

Airframe  (shop  category  1) 

7 

18-24 

Engine  (shop  category  2) 

7 

25-31 

Accessories  and  Components  (shop  category  3) 

7 

32-38 

Elect/Comm/Armament  (shop  category  4) 

7 

39-45 

Armament  (shop  category  5) 

7 

46-52 

Support  Equipment 

7 

53-59 

Manufacture  and  Repair  (shop  category  6) 

7 

60-66 

Test  and  Calibration  (shop  category  7) 

7 

67-74 

Covered  Area  (sq.  feet) 

8 

78-100 

Filler 

23 

Distribution  Record 

1-4 

TEC 

4 

5 

Program 

1 

6 

Subprogram 

1 

7 

Filler 

1 

8 

NARF 

1 

9 

Card  Type  (=4  for  distribution  record) 

1 

10 

Filler 

1 

11-13 

Shop  distribution  percent  shop  1 

3 

14-16 

Shop  distribution  percent  shop  2 

3 

17-19 

Shop  distribution  percent  shop  3 

3 

20-22 

Shop  distribution  percent  shop  4 

3 

23-25 

Shop  distribution  percent  shop  5 

3 

26-28 

Shop  distribution  percent  shop  6 

3 

29-31 

Shop  distribution  percent  shop  7 

3 

32-34 

Shop  distribution  percent  shop  8 

3 

35-37 

Shop  distribution  percent  other 

3 

38-100 

Filler 

63 

B-2 


TABLE  B-3 


COST  RATE  FILE 

Card  column 

Variable 

Length 

1 

NARF 

1 

2 

Program 

1 

3 

Subprogram 

1 

4-7 

TEC 

4 

8 

Fund  Source 

1 

9-10 

Fiscal  Year 

2 

11 

Quarter 

1 

12-21 

TMS 

10 

22-25 

Latest  Quarter  Total  Units 

4 

26-34 

Latest  Quarter  Total  Hours 

9 

35-38 

All  Quarters  Total  Units 

4 

39-47 

All  Quarters  Total  Hours 

9 

48-50 

Filler 

3 

51-54 

Direct  Labor  Rate  (DLR)  Year  1 

4 

55-59 

Direct  Material  Rate  (DMR)  Year  1 

5 

60-63 

Production  Overhead  Rate  (POR)  Year  1 

4 

64-67 

General  and  Administrative  Overhead  Rate  (GAR)  Year  1 

4 

68-73 

Unit  Material  Rate  (UMR)  Year  1 

6 

74-79 

GFM  Year  1 

6 

80-83 

DLR  Year  2 

4 

84-88 

DMR  Year  2 

5 

89-92 

POR  Year  2 

4 

93-96 

GAR  Year  2 

4 

97-102 

UMR  Year  2 

6 

103-108 

GFM  Year  2 

6 

109-112 

DLR  Year  3 

4 

113-117 

DMR  Year  3 

5 

118-121 

POR  Year  3 

4 

122-125 

GAR  Year  3 

4 

126-131 

UMR  Year  3 

6 

132-137 

GFM  Year  3 

6 

138-141 

DLR  Year  4 

4 

142-146 

DMR  Year  4 

5 

147-150 

POR  Year  4 

4 

151-154 

GAR  Year  4 

4 

155-160 

UMR  Year  4 

6 

161-166 

GFM  Year  4 

6 

167-170 

DLR  Year  5 

4 

171-175 

DMR  Year  5 

5 

176-179 

POR  Year  5 

4 

180-183 

GAR  Year  5 

4 

184-189 

UMR  Year  5 

6 

190-195 

GFM  Year  5 

6 

196-200 

Filler 

5 

B-3 


TABLE  B-4 


DATA  BASE  FILE 


Card  column 

Variable 

Length 

1-2 

Data  Base  Code  for  TEC 

2 

3 

Fund  Source 

1 

4 

Year 

1 

5 

Program 

1 

6 

Subprogram 

1 

7 

Customer 

t 

8 

NARF 

1 

9-35 

Distribution  Factors 

27  (9  three-character 
fields) 

36-39 

Total  Quantity  in  Service  (TQS) 

4 

40-43 

Total  Mission  Essential  (TME) 

4 

44-46 

Mission  Essential  (M/E) 

3 

47-51 

Norm 

5 

52-54 

Mission  Non-Essential  (M/N) 

3 

55-60 

Requirements 

6 

61-64 

Direct  Labor  Rate  (DLR) 

4 

65-69 

Direct  Material  Rate  (DMR) 

5 

70-73 

Production  Overhead  Rate  (POR) 

4 

74-78 

General  and  Administrative  Rate  (GAR) 

5 

79-84 

Unit  Material  Rate  (UMR) 

6 

85-93 

Total  Cost 

9 

94-96 

Filler 

3 

B-4 
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TABLE  B-5 


Subprogram 

1 


MATRIX  ASSIGNING  FUND  CODE  FOR 
CUSTOMER  1  THROUGH  9  AND  A  THROUGH  I 
BY  SUBPROGRAM  AND  PROGRAM 


Program 

Fund  code 

Subprogram 

Program 

Fund  code 

A  N 

A 

J 

Y 

D 

A  N 

A 

K 

A 

A 

A 

A 

L 

N 

A 

F  P 

A 

M 

P 

E 

H 

A 

N 

T 

E 

L 

A 

0 

A 

A 

T 

C 

P 

N 

A 

T 

C 

Q 

A 

A 

T 

C 

R 

P 

C 

T 

C 

[  ( 

V 

1 

A 

A 

$ 

V 

E 

A 

A 

a  i 

N 

1 

A 

A 

/ 

P 

1 

A 

A 

S 

L 

A 

A 

A 

T 

P 

E 

A 

A 

U 

L  P 

A 

A 

A 

V 

R 

A 

A 

A 

w 

L 

A 

A  N 

A 

X 

R 

A 

A 

A 

Y 

R 

A 

Y 

D 

L 

A 

E 

Y 

D 
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